object DMDados: TDMDados
  OldCreateOrder = False
  Height = 1013
  Width = 2141
  object SQLConnection1: TSQLConnection
    ConnectionName = 'IBConnection'
    DriverName = 'Firebird'
    LoginPrompt = False
    Params.Strings = (
      'DriverUnit=Data.DBXFirebird'
      
        'DriverPackageLoader=TDBXDynalinkDriverLoader,DbxCommonDriver170.' +
        'bpl'
      
        'DriverAssemblyLoader=Borland.Data.TDBXDynalinkDriverLoader,Borla' +
        'nd.Data.DbxCommonDriver,Version=17.0.0.0,Culture=neutral,PublicK' +
        'eyToken=91d62ebb5b0d1b1b'
      
        'MetaDataPackageLoader=TDBXFirebirdMetaDataCommandFactory,DbxFire' +
        'birdDriver170.bpl'
      
        'MetaDataAssemblyLoader=Borland.Data.TDBXFirebirdMetaDataCommandF' +
        'actory,Borland.Data.DbxFirebirdDriver,Version=17.0.0.0,Culture=n' +
        'eutral,PublicKeyToken=91d62ebb5b0d1b1b'
      'GetDriverFunc=getSQLDriverINTERBASE'
      'LibraryName=dbxfb.dll'
      'LibraryNameOsx=libsqlfb.dylib'
      'VendorLib=fbclient.dll'
      'VendorLibWin64=fbclient.dll'
      'VendorLibOsx=/Library/Frameworks/Firebird.framework/Firebird'
      'User_Name=sysdba'
      'Password=masterkey'
      'Role=RoleName'
      'MaxBlobSize=-1'
      'LocaleCode=0000'
      'IsolationLevel=ReadCommitted'
      'SQLDialect=3'
      'CommitRetain=False'
      'WaitOnLocks=True'
      'TrimChar=False'
      'BlobSize=-1'
      'ErrorResourceFile='
      'RoleName=RoleName'
      'ServerCharSet='
      'Trim Char=False'
      'Database=localhost:C:\Apower\BD_PAISAGISMO.FDB')
    Connected = True
    Left = 776
    Top = 40
  end
  object SQLDataSet1: TSQLDataSet
    CommandText = 'select * from clientes'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = SQLConnection1
    Left = 24
    Top = 8
  end
  object DataSetProvider1: TDataSetProvider
    DataSet = SQLDataSet1
    Left = 24
    Top = 56
  end
  object ClientDataSet1: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DataSetProvider1'
    Left = 24
    Top = 112
  end
  object DataSource1: TDataSource
    DataSet = ClientDataSet1
    Left = 32
    Top = 168
  end
  object sqlControle: TSQLDataSet
    SchemaName = 'SYSDBA'
    CommandText = 'select * from CONTROLE'#13#10'where campo = :pCampo'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftString
        Name = 'pCampo'
        ParamType = ptInput
        Value = ''
      end>
    SQLConnection = SQLConnection1
    Left = 944
    Top = 272
  end
  object dspControle: TDataSetProvider
    DataSet = sqlControle
    Left = 944
    Top = 320
  end
  object cdsControle: TClientDataSet
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'CAMPO'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'VALOR'
        DataType = ftLargeint
      end>
    IndexDefs = <>
    Params = <
      item
        DataType = ftString
        Name = 'pCampo'
        ParamType = ptInput
        Value = ''
      end>
    ProviderName = 'dspControle'
    StoreDefs = True
    Left = 944
    Top = 376
    object cdsControleCAMPO: TStringField
      FieldName = 'CAMPO'
      Size = 30
    end
    object cdsControleVALOR: TLargeintField
      FieldName = 'VALOR'
    end
  end
  object dsrControle: TDataSource
    DataSet = cdsControle
    Left = 944
    Top = 432
  end
  object sqlConsultaAgendamentos: TSQLDataSet
    SchemaName = 'SYSDBA'
    CommandText = 'select * from AGENDAMENTOS where STATUS = :PStatus'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftString
        Name = 'PStatus'
        ParamType = ptInput
      end>
    SQLConnection = SQLConnection1
    Left = 48
    Top = 240
  end
  object cdsConsultaAgendamentos: TClientDataSet
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'COD_AGENDAMENTOS'
        Attributes = [faRequired]
        DataType = ftLargeint
      end
      item
        Name = 'COD_CLIENTES'
        Attributes = [faRequired]
        DataType = ftLargeint
      end
      item
        Name = 'DT_AGENDAMENTOS'
        Attributes = [faRequired]
        DataType = ftDate
      end
      item
        Name = 'DESC_SERVICO_AGENDAMENTOS'
        DataType = ftString
        Size = 500
      end
      item
        Name = 'LOCAL_AGENDAMENTOS'
        DataType = ftString
        Size = 500
      end
      item
        Name = 'STATUS'
        DataType = ftString
        Size = 1
      end>
    IndexDefs = <>
    Params = <
      item
        DataType = ftString
        Name = 'PStatus'
        ParamType = ptInput
      end>
    ProviderName = 'dspConsultaAgendamentos'
    StoreDefs = True
    Left = 48
    Top = 336
    object cdsConsultaAgendamentosCOD_AGENDAMENTOS: TLargeintField
      FieldName = 'COD_AGENDAMENTOS'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object cdsConsultaAgendamentosCOD_CLIENTES: TLargeintField
      FieldName = 'COD_CLIENTES'
      Required = True
    end
    object cdsConsultaAgendamentosDT_AGENDAMENTOS: TDateField
      FieldName = 'DT_AGENDAMENTOS'
      Required = True
    end
    object cdsConsultaAgendamentosDESC_SERVICO_AGENDAMENTOS: TStringField
      FieldName = 'DESC_SERVICO_AGENDAMENTOS'
      Size = 500
    end
    object cdsConsultaAgendamentosLOCAL_AGENDAMENTOS: TStringField
      FieldName = 'LOCAL_AGENDAMENTOS'
      Size = 500
    end
    object cdsConsultaAgendamentosSTATUS: TStringField
      FieldName = 'STATUS'
      Size = 1
    end
  end
  object dspConsultaAgendamentos: TDataSetProvider
    DataSet = sqlConsultaAgendamentos
    Left = 48
    Top = 288
  end
  object dsrConsultaAgendamentos: TDataSource
    AutoEdit = False
    DataSet = cdsConsultaAgendamentos
    Left = 48
    Top = 384
  end
  object sqlSelectFormicidaMirex: TSQLDataSet
    SchemaName = 'SYSDBA'
    CommandText = 'select * from  FORMICIDA_MIREX where DATA_REFERENCIA = :PDataRef'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftString
        Name = 'PDataRef'
        ParamType = ptInput
      end>
    SQLConnection = SQLConnection1
    Left = 56
    Top = 520
  end
  object dspSelectFormicidaMirex: TDataSetProvider
    DataSet = sqlSelectFormicidaMirex
    Left = 56
    Top = 568
  end
  object cdsSelectFormicidaMirex: TClientDataSet
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'ID_FORMICIDA_MIREX'
        Attributes = [faRequired]
        DataType = ftFloat
      end
      item
        Name = 'LOCAL'
        Attributes = [faRequired]
        DataType = ftString
        Size = 100
      end
      item
        Name = 'QTDE_APLICADA'
        Attributes = [faRequired]
        DataType = ftString
        Size = 50
      end
      item
        Name = 'DATA_APLICACAO'
        DataType = ftDate
      end
      item
        Name = 'DATA_RETIRADA'
        DataType = ftDate
      end
      item
        Name = 'DATA_REFERENCIA'
        DataType = ftString
        Size = 20
      end>
    IndexDefs = <>
    Params = <
      item
        DataType = ftString
        Name = 'PDataRef'
        ParamType = ptInput
      end>
    ProviderName = 'dspSelectFormicidaMirex'
    StoreDefs = True
    Left = 56
    Top = 616
    object cdsSelectFormicidaMirexID_FORMICIDA_MIREX: TFloatField
      FieldName = 'ID_FORMICIDA_MIREX'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      Visible = False
    end
    object cdsSelectFormicidaMirexLOCAL: TStringField
      DisplayLabel = 'Local'
      DisplayWidth = 70
      FieldName = 'LOCAL'
      Required = True
      Size = 100
    end
    object cdsSelectFormicidaMirexQTDE_APLICADA: TStringField
      DisplayLabel = 'Qtde Aplicada'
      DisplayWidth = 30
      FieldName = 'QTDE_APLICADA'
      Required = True
      Size = 50
    end
    object cdsSelectFormicidaMirexDATA_APLICACAO: TDateField
      DisplayLabel = 'Data Aplica'#231#227'o'
      DisplayWidth = 15
      FieldName = 'DATA_APLICACAO'
    end
    object cdsSelectFormicidaMirexDATA_RETIRADA: TDateField
      DisplayLabel = 'Data Retirada'
      DisplayWidth = 15
      FieldName = 'DATA_RETIRADA'
    end
    object cdsSelectFormicidaMirexDATA_REFERENCIA: TStringField
      FieldName = 'DATA_REFERENCIA'
      Visible = False
    end
  end
  object dsSelectFormicidaMirex: TDataSource
    DataSet = cdsSelectFormicidaMirex
    Left = 56
    Top = 664
  end
  object sqlSelectFormicidaMadepo: TSQLDataSet
    SchemaName = 'SYSDBA'
    CommandText = 
      'select *  from FORMICIDA_MADEPO where DATA_REFERENCIA = :PDataRe' +
      'f'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftString
        Name = 'PDataRef'
        ParamType = ptInput
      end>
    SQLConnection = SQLConnection1
    Left = 200
    Top = 520
  end
  object dspSelectFormicidaMadepo: TDataSetProvider
    DataSet = sqlSelectFormicidaMadepo
    Left = 200
    Top = 568
  end
  object cdsSelectFormicidaMadepo: TClientDataSet
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'ID_FORMICIDA_MADEPO'
        Attributes = [faRequired]
        DataType = ftFloat
      end
      item
        Name = 'LOCAL'
        Attributes = [faRequired]
        DataType = ftString
        Size = 100
      end
      item
        Name = 'QTDE_APLICADA'
        Attributes = [faRequired]
        DataType = ftString
        Size = 50
      end
      item
        Name = 'DATA_APLICACAO'
        DataType = ftDate
      end
      item
        Name = 'DATA_RETIRADA'
        DataType = ftDate
      end
      item
        Name = 'DATA_REFERENCIA'
        DataType = ftString
        Size = 20
      end>
    IndexDefs = <>
    Params = <
      item
        DataType = ftString
        Name = 'PDataRef'
        ParamType = ptInput
      end>
    ProviderName = 'dspSelectFormicidaMadepo'
    StoreDefs = True
    Left = 200
    Top = 616
    object cdsSelectFormicidaMadepoID_FORMICIDA_MADEPO: TFloatField
      FieldName = 'ID_FORMICIDA_MADEPO'
      Required = True
    end
    object cdsSelectFormicidaMadepoLOCAL: TStringField
      FieldName = 'LOCAL'
      Required = True
      Size = 100
    end
    object cdsSelectFormicidaMadepoQTDE_APLICADA: TStringField
      FieldName = 'QTDE_APLICADA'
      Required = True
      Size = 50
    end
    object cdsSelectFormicidaMadepoDATA_APLICACAO: TDateField
      FieldName = 'DATA_APLICACAO'
    end
    object cdsSelectFormicidaMadepoDATA_RETIRADA: TDateField
      FieldName = 'DATA_RETIRADA'
    end
    object cdsSelectFormicidaMadepoDATA_REFERENCIA: TStringField
      FieldName = 'DATA_REFERENCIA'
    end
  end
  object dsSelectFormicidaMadepo: TDataSource
    DataSet = cdsSelectFormicidaMadepo
    Left = 200
    Top = 664
  end
  object sqlSelectHerbicidaAllly: TSQLDataSet
    SchemaName = 'SYSDBA'
    CommandText = 
      'select *    from HERBICIDA_ALLLY where DATA_REFERENCIA = :PDataR' +
      'ef'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftString
        Name = 'PDataRef'
        ParamType = ptInput
      end>
    SQLConnection = SQLConnection1
    Left = 336
    Top = 520
  end
  object dspSelectHerbicidaAllly: TDataSetProvider
    DataSet = sqlSelectHerbicidaAllly
    Left = 336
    Top = 568
  end
  object cdsSelectHerbicidaAllly: TClientDataSet
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'ID_HERBICIDA_ALLLY'
        Attributes = [faRequired]
        DataType = ftFloat
      end
      item
        Name = 'LOCAL'
        Attributes = [faRequired]
        DataType = ftString
        Size = 100
      end
      item
        Name = 'QTDE_APLICADA'
        Attributes = [faRequired]
        DataType = ftString
        Size = 50
      end
      item
        Name = 'DATA_APLICACAO'
        DataType = ftDate
      end
      item
        Name = 'DATA_RETIRADA'
        DataType = ftDate
      end
      item
        Name = 'DATA_REFERENCIA'
        DataType = ftString
        Size = 20
      end>
    IndexDefs = <>
    Params = <
      item
        DataType = ftString
        Name = 'PDataRef'
        ParamType = ptInput
      end>
    ProviderName = 'dspSelectHerbicidaAllly'
    StoreDefs = True
    Left = 336
    Top = 616
    object cdsSelectHerbicidaAlllyID_HERBICIDA_ALLLY: TFloatField
      FieldName = 'ID_HERBICIDA_ALLLY'
      Required = True
    end
    object cdsSelectHerbicidaAlllyLOCAL: TStringField
      FieldName = 'LOCAL'
      Required = True
      Size = 100
    end
    object cdsSelectHerbicidaAlllyQTDE_APLICADA: TStringField
      FieldName = 'QTDE_APLICADA'
      Required = True
      Size = 50
    end
    object cdsSelectHerbicidaAlllyDATA_APLICACAO: TDateField
      FieldName = 'DATA_APLICACAO'
    end
    object cdsSelectHerbicidaAlllyDATA_RETIRADA: TDateField
      FieldName = 'DATA_RETIRADA'
    end
    object cdsSelectHerbicidaAlllyDATA_REFERENCIA: TStringField
      FieldName = 'DATA_REFERENCIA'
    end
  end
  object dsSelectHerbicidaAllly: TDataSource
    DataSet = cdsSelectHerbicidaAllly
    Left = 336
    Top = 664
  end
  object sqlSelectHerbicidaGladium: TSQLDataSet
    SchemaName = 'SYSDBA'
    CommandText = 
      'select *   from HERBICIDA_GLADIUM where DATA_REFERENCIA = :PData' +
      'Ref'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftString
        Name = 'PDataRef'
        ParamType = ptInput
      end>
    SQLConnection = SQLConnection1
    Left = 464
    Top = 520
  end
  object dspSelectHerbicidaGladium: TDataSetProvider
    DataSet = sqlSelectHerbicidaGladium
    Left = 464
    Top = 568
  end
  object cdsSelectHerbicidaGladium: TClientDataSet
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'ID_HERBICIDA_GLADIUM'
        Attributes = [faRequired]
        DataType = ftFloat
      end
      item
        Name = 'LOCAL'
        Attributes = [faRequired]
        DataType = ftString
        Size = 100
      end
      item
        Name = 'QTDE_APLICADA'
        Attributes = [faRequired]
        DataType = ftString
        Size = 50
      end
      item
        Name = 'DATA_APLICACAO'
        DataType = ftDate
      end
      item
        Name = 'DATA_RETIRADA'
        DataType = ftDate
      end
      item
        Name = 'DATA_REFERENCIA'
        DataType = ftString
        Size = 20
      end>
    IndexDefs = <>
    Params = <
      item
        DataType = ftString
        Name = 'PDataRef'
        ParamType = ptInput
      end>
    ProviderName = 'dspSelectHerbicidaGladium'
    StoreDefs = True
    Left = 464
    Top = 616
    object cdsSelectHerbicidaGladiumID_HERBICIDA_GLADIUM: TFloatField
      FieldName = 'ID_HERBICIDA_GLADIUM'
      Required = True
    end
    object cdsSelectHerbicidaGladiumLOCAL: TStringField
      FieldName = 'LOCAL'
      Required = True
      Size = 100
    end
    object cdsSelectHerbicidaGladiumQTDE_APLICADA: TStringField
      FieldName = 'QTDE_APLICADA'
      Required = True
      Size = 50
    end
    object cdsSelectHerbicidaGladiumDATA_APLICACAO: TDateField
      FieldName = 'DATA_APLICACAO'
    end
    object cdsSelectHerbicidaGladiumDATA_RETIRADA: TDateField
      FieldName = 'DATA_RETIRADA'
    end
    object cdsSelectHerbicidaGladiumDATA_REFERENCIA: TStringField
      FieldName = 'DATA_REFERENCIA'
    end
  end
  object dsSelectHerbicidaGladium: TDataSource
    DataSet = cdsSelectHerbicidaGladium
    Left = 464
    Top = 664
  end
  object sqlSelectAPInseticida: TSQLDataSet
    SchemaName = 'SYSDBA'
    CommandText = 'select * from AP_INSETICIDA where DATA_REFERENCIA = :PDataRef'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftString
        Name = 'PDataRef'
        ParamType = ptInput
      end>
    SQLConnection = SQLConnection1
    Left = 616
    Top = 520
  end
  object dspSelectAPInseticida: TDataSetProvider
    DataSet = sqlSelectAPInseticida
    Left = 616
    Top = 568
  end
  object cdsSelectAPInseticida: TClientDataSet
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'ID_AP_INSETICIDA'
        Attributes = [faRequired]
        DataType = ftFloat
      end
      item
        Name = 'LOCAL'
        Attributes = [faRequired]
        DataType = ftString
        Size = 100
      end
      item
        Name = 'ESPECIE'
        Attributes = [faRequired]
        DataType = ftString
        Size = 50
      end
      item
        Name = 'PRODUTOS'
        Attributes = [faRequired]
        DataType = ftString
        Size = 50
      end
      item
        Name = 'DATA_PREVISAO'
        DataType = ftDate
      end
      item
        Name = 'DATA_APLICACAO'
        DataType = ftDate
      end
      item
        Name = 'TT'
        DataType = ftString
        Size = 2
      end
      item
        Name = 'DATA_REFERENCIA'
        DataType = ftString
        Size = 20
      end>
    IndexDefs = <>
    Params = <
      item
        DataType = ftString
        Name = 'PDataRef'
        ParamType = ptInput
      end>
    ProviderName = 'dspSelectAPInseticida'
    StoreDefs = True
    Left = 616
    Top = 616
    object cdsSelectAPInseticidaID_AP_INSETICIDA: TFloatField
      FieldName = 'ID_AP_INSETICIDA'
      Required = True
    end
    object cdsSelectAPInseticidaLOCAL: TStringField
      FieldName = 'LOCAL'
      Required = True
      Size = 100
    end
    object cdsSelectAPInseticidaESPECIE: TStringField
      FieldName = 'ESPECIE'
      Required = True
      Size = 50
    end
    object cdsSelectAPInseticidaPRODUTOS: TStringField
      FieldName = 'PRODUTOS'
      Required = True
      Size = 50
    end
    object cdsSelectAPInseticidaDATA_PREVISAO: TDateField
      FieldName = 'DATA_PREVISAO'
    end
    object cdsSelectAPInseticidaDATA_APLICACAO: TDateField
      FieldName = 'DATA_APLICACAO'
    end
    object cdsSelectAPInseticidaTT: TStringField
      FieldName = 'TT'
      Size = 2
    end
    object cdsSelectAPInseticidaDATA_REFERENCIA: TStringField
      FieldName = 'DATA_REFERENCIA'
    end
  end
  object dsSelectAPInseticida: TDataSource
    DataSet = cdsSelectAPInseticida
    Left = 616
    Top = 664
  end
  object sqlSelectAcInseticida: TSQLDataSet
    SchemaName = 'SYSDBA'
    CommandText = 'select *  from AC_INSETICIDA where DATA_REFERENCIA = :PDataRef'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftString
        Name = 'PDataRef'
        ParamType = ptInput
      end>
    SQLConnection = SQLConnection1
    Left = 744
    Top = 520
  end
  object dspSelectAcInseticida: TDataSetProvider
    DataSet = sqlSelectAcInseticida
    Left = 744
    Top = 568
  end
  object cdsSelectAcInseticida: TClientDataSet
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'ID_AC_INSETICIDA'
        Attributes = [faRequired]
        DataType = ftFloat
      end
      item
        Name = 'LOCAL'
        Attributes = [faRequired]
        DataType = ftString
        Size = 100
      end
      item
        Name = 'ESPECIE'
        Attributes = [faRequired]
        DataType = ftString
        Size = 50
      end
      item
        Name = 'PRODUTOS'
        Attributes = [faRequired]
        DataType = ftString
        Size = 50
      end
      item
        Name = 'DATA_PREVISAO'
        DataType = ftDate
      end
      item
        Name = 'DATA_APLICACAO'
        DataType = ftDate
      end
      item
        Name = 'TT'
        DataType = ftString
        Size = 2
      end
      item
        Name = 'DATA_REFERENCIA'
        DataType = ftString
        Size = 20
      end>
    IndexDefs = <>
    Params = <
      item
        DataType = ftString
        Name = 'PDataRef'
        ParamType = ptInput
      end>
    ProviderName = 'dspSelectAcInseticida'
    StoreDefs = True
    Left = 744
    Top = 616
    object cdsSelectAcInseticidaID_AC_INSETICIDA: TFloatField
      FieldName = 'ID_AC_INSETICIDA'
      Required = True
    end
    object cdsSelectAcInseticidaLOCAL: TStringField
      FieldName = 'LOCAL'
      Required = True
      Size = 100
    end
    object cdsSelectAcInseticidaESPECIE: TStringField
      FieldName = 'ESPECIE'
      Required = True
      Size = 50
    end
    object cdsSelectAcInseticidaPRODUTOS: TStringField
      FieldName = 'PRODUTOS'
      Required = True
      Size = 50
    end
    object cdsSelectAcInseticidaDATA_PREVISAO: TDateField
      FieldName = 'DATA_PREVISAO'
    end
    object cdsSelectAcInseticidaDATA_APLICACAO: TDateField
      FieldName = 'DATA_APLICACAO'
    end
    object cdsSelectAcInseticidaTT: TStringField
      FieldName = 'TT'
      Size = 2
    end
    object cdsSelectAcInseticidaDATA_REFERENCIA: TStringField
      FieldName = 'DATA_REFERENCIA'
    end
  end
  object dsSelectAcInseticida: TDataSource
    DataSet = cdsSelectAcInseticida
    Left = 744
    Top = 664
  end
  object dsCadastroArea: TDataSource
    DataSet = cdsCadastroArea
    Left = 48
    Top = 928
  end
  object cdsCadastroArea: TClientDataSet
    Active = True
    Aggregates = <>
    FilterOptions = [foCaseInsensitive]
    Params = <>
    ProviderName = 'dspCadastroArea'
    Left = 48
    Top = 872
    object cdsCadastroAreaID_AREA: TFloatField
      FieldName = 'ID_AREA'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      Visible = False
    end
    object cdsCadastroAreaCOD_MAPA: TStringField
      DisplayLabel = 'C'#243'digo Mapa'
      DisplayWidth = 10
      FieldName = 'COD_MAPA'
    end
    object cdsCadastroAreaNOME: TStringField
      DisplayLabel = 'Nome'
      DisplayWidth = 75
      FieldName = 'NOME'
      Size = 50
    end
  end
  object dspCadastroArea: TDataSetProvider
    DataSet = sqlCadastroArea
    Left = 40
    Top = 816
  end
  object sqlCadastroArea: TSQLDataSet
    CommandText = 'select * from AREAS'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = SQLConnection1
    Left = 40
    Top = 768
  end
  object DataSource2: TDataSource
    Left = 1984
    Top = 296
  end
  object ClientDataSet2: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 1984
    Top = 240
  end
  object DataSetProvider2: TDataSetProvider
    Left = 1984
    Top = 184
  end
  object SQLDataSet2: TSQLDataSet
    Params = <>
    Left = 1984
    Top = 136
  end
  object dsCadastroSubArea: TDataSource
    DataSet = cdsCadastroSubArea
    Left = 160
    Top = 928
  end
  object cdsCadastroSubArea: TClientDataSet
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'ID_SUBAREA'
        Attributes = [faRequired]
        DataType = ftFloat
      end
      item
        Name = 'ID_AREA'
        DataType = ftFloat
      end
      item
        Name = 'NOME'
        DataType = ftString
        Size = 50
      end>
    IndexDefs = <>
    Params = <>
    ProviderName = 'dspCadastroSubArea'
    StoreDefs = True
    Left = 160
    Top = 880
    object cdsCadastroSubAreaID_SUBAREA: TFloatField
      FieldName = 'ID_SUBAREA'
      Required = True
    end
    object cdsCadastroSubAreaID_AREA: TFloatField
      FieldName = 'ID_AREA'
    end
    object cdsCadastroSubAreaNOME: TStringField
      FieldName = 'NOME'
      Size = 50
    end
  end
  object dspCadastroSubArea: TDataSetProvider
    DataSet = sqlCadastroSubArea
    Left = 160
    Top = 824
  end
  object sqlCadastroSubArea: TSQLDataSet
    CommandText = 'select * from SUBAREAS'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = SQLConnection1
    Left = 160
    Top = 768
  end
  object dsCadastroSubAreaV: TDataSource
    DataSet = cdsCadastroSubAreaV
    Left = 280
    Top = 928
  end
  object cdsCadastroSubAreaV: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    ProviderName = 'dspCadastroSubAreaV'
    Left = 280
    Top = 872
    object cdsCadastroSubAreaVID_AREA: TFloatField
      FieldName = 'ID_AREA'
      Visible = False
    end
    object cdsCadastroSubAreaVNOME: TStringField
      DisplayLabel = #193'rea'
      DisplayWidth = 40
      FieldName = 'NOME'
      Size = 50
    end
    object cdsCadastroSubAreaVID_SUBAREA: TFloatField
      FieldName = 'ID_SUBAREA'
      Required = True
      Visible = False
    end
    object cdsCadastroSubAreaVNOME_1: TStringField
      DisplayLabel = 'Sub-'#193'rea'
      FieldName = 'NOME_1'
      Size = 50
    end
  end
  object dspCadastroSubAreaV: TDataSetProvider
    DataSet = sqlCadastroSubAreaV
    Left = 280
    Top = 816
  end
  object sqlCadastroSubAreaV: TSQLDataSet
    CommandText = 
      'select '#13#10'SUBAREAS.ID_AREA,'#13#10'areas.NOME,'#13#10'SUBAREAS.ID_SUBAREA,'#13#10'S' +
      'UBAREAS.NOME'#13#10'from '#13#10'SUBAREAS,'#13#10'areas'#13#10'WHERE'#13#10'SUBAREAS.ID_AREA =' +
      ' areas.ID_AREA'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = SQLConnection1
    Left = 280
    Top = 768
  end
  object dsCadastroPlanta: TDataSource
    DataSet = cdsCadastroPlanta
    Left = 416
    Top = 928
  end
  object cdsCadastroPlanta: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspCadastroPlanta'
    Left = 416
    Top = 872
    object cdsCadastroPlantaID_PLANTA: TFloatField
      FieldName = 'ID_PLANTA'
      Required = True
      Visible = False
    end
    object cdsCadastroPlantaNOME: TStringField
      DisplayLabel = 'Nome'
      FieldName = 'NOME'
      Size = 100
    end
  end
  object dspCadastroPlanta: TDataSetProvider
    DataSet = sqlCadastroPlanta
    Left = 416
    Top = 816
  end
  object sqlCadastroPlanta: TSQLDataSet
    CommandText = 'select * from PLANTAS'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = SQLConnection1
    Left = 416
    Top = 768
  end
  object dsCadastroTipoOs: TDataSource
    DataSet = cdsCadastroTipoOs
    Left = 528
    Top = 928
  end
  object cdsCadastroTipoOs: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    ProviderName = 'dspCadastroTipoOs'
    Left = 528
    Top = 872
    object cdsCadastroTipoOsID_TIPO_OS: TFloatField
      FieldName = 'ID_TIPO_OS'
      Visible = False
    end
    object cdsCadastroTipoOsNOME: TStringField
      DisplayLabel = 'Tipo OS'
      FieldName = 'NOME'
      Size = 50
    end
  end
  object dspCadastroTipoOs: TDataSetProvider
    DataSet = sqlCadastroTipoOs
    Left = 528
    Top = 816
  end
  object sqlCadastroTipoOs: TSQLDataSet
    CommandText = 'select * from TIPO_OS'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = SQLConnection1
    Left = 528
    Top = 768
  end
  object dsCadastroTipoSolicitante: TDataSource
    DataSet = cdsCadastroTipoSolicitante
    Left = 672
    Top = 928
  end
  object cdsCadastroTipoSolicitante: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspCadastroTipoSolicitante'
    Left = 672
    Top = 872
    object cdsCadastroTipoSolicitanteID_TIPO_SOLICITANTE: TFloatField
      FieldName = 'ID_TIPO_SOLICITANTE'
      Required = True
    end
    object cdsCadastroTipoSolicitanteID_TIPO_OS: TFloatField
      FieldName = 'ID_TIPO_OS'
    end
    object cdsCadastroTipoSolicitanteNOME_TIPO_SOLICITANTE: TStringField
      FieldName = 'NOME_TIPO_SOLICITANTE'
      Size = 50
    end
  end
  object dspCadastroTipoSolicitante: TDataSetProvider
    DataSet = sqlCadastroTipoSolicitante
    Left = 672
    Top = 816
  end
  object sqlCadastroTipoSolicitante: TSQLDataSet
    CommandText = 'select * from TIPO_SOLICITANTE'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = SQLConnection1
    Left = 672
    Top = 768
  end
  object dsCadastroTipoSolicitanteV: TDataSource
    DataSet = cdsCadastroTipoSolicitanteV
    Left = 816
    Top = 928
  end
  object cdsCadastroTipoSolicitanteV: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    ProviderName = 'dspCadastroTipoSolicitanteV'
    Left = 816
    Top = 872
    object cdsCadastroTipoSolicitanteVID_TIPO_SOLICITANTE: TFloatField
      FieldName = 'ID_TIPO_SOLICITANTE'
      Required = True
      Visible = False
    end
    object cdsCadastroTipoSolicitanteVNOME: TStringField
      DisplayLabel = 'Tipo OS'
      FieldName = 'NOME'
      Size = 50
    end
    object cdsCadastroTipoSolicitanteVNOME_TIPO_SOLICITANTE: TStringField
      DisplayLabel = 'Tipo Solicitante'
      FieldName = 'NOME_TIPO_SOLICITANTE'
      Size = 50
    end
    object cdsCadastroTipoSolicitanteVID_TIPO_OS: TFloatField
      FieldName = 'ID_TIPO_OS'
      Visible = False
    end
  end
  object dspCadastroTipoSolicitanteV: TDataSetProvider
    DataSet = sqlCadastroTipoSolicitanteV
    Left = 816
    Top = 816
  end
  object sqlCadastroTipoSolicitanteV: TSQLDataSet
    CommandText = 
      'select '#13#10'tipo_solicitante.id_tipo_solicitante,'#13#10'tipo_os.nome,'#13#10't' +
      'ipo_solicitante.nome_tipo_solicitante,'#13#10'tipo_solicitante.id_tipo' +
      '_os'#13#10'from '#13#10'tipo_solicitante,'#13#10'tipo_os'#13#10'WHERE'#13#10'tipo_solicitante.' +
      'id_tipo_os = tipo_os.id_tipo_os'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = SQLConnection1
    Left = 816
    Top = 768
  end
  object dsVerificaSeExiste: TDataSource
    DataSet = cdsVerificaSeExiste
    Left = 1032
    Top = 432
  end
  object cdsVerificaSeExiste: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspVerificaSeExiste'
    Left = 1032
    Top = 376
  end
  object dspVerificaSeExiste: TDataSetProvider
    DataSet = sqlVerificaSeExiste
    Left = 1032
    Top = 320
  end
  object sqlVerificaSeExiste: TSQLDataSet
    MaxBlobSize = -1
    Params = <>
    SQLConnection = SQLConnection1
    Left = 1032
    Top = 272
  end
  object dsCadastroTratamento: TDataSource
    DataSet = cdsCadastroTratamento
    Left = 968
    Top = 928
  end
  object cdsCadastroTratamento: TClientDataSet
    Active = True
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'ID_TRATAMENTO'
        Attributes = [faRequired]
        DataType = ftFloat
      end
      item
        Name = 'ID_ATIVIDADE'
        DataType = ftFloat
      end
      item
        Name = 'NOME'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'PERIODICIDADE'
        DataType = ftInteger
      end>
    IndexDefs = <>
    Params = <>
    ProviderName = 'dspCadastroTratamento'
    StoreDefs = True
    Left = 968
    Top = 872
    object cdsCadastroTratamentoID_TRATAMENTO: TFloatField
      FieldName = 'ID_TRATAMENTO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object cdsCadastroTratamentoID_ATIVIDADE: TFloatField
      FieldName = 'ID_ATIVIDADE'
    end
    object cdsCadastroTratamentoNOME: TStringField
      FieldName = 'NOME'
      Size = 50
    end
    object cdsCadastroTratamentoPERIODICIDADE: TIntegerField
      FieldName = 'PERIODICIDADE'
    end
  end
  object dspCadastroTratamento: TDataSetProvider
    DataSet = sqlCadastroTratamento
    Left = 968
    Top = 816
  end
  object sqlCadastroTratamento: TSQLDataSet
    CommandText = 'select '#13#10' *'#13#10' from '#13#10' TRATAMENTO'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = SQLConnection1
    Left = 968
    Top = 768
  end
  object dsCadastroSolicitante: TDataSource
    DataSet = cdsCadastroSolicitante
    Left = 1240
    Top = 936
  end
  object cdsCadastroSolicitante: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    ProviderName = 'dspCadastroSolicitante'
    Left = 1240
    Top = 880
    object cdsCadastroSolicitanteID_SOLICITANTE: TFloatField
      FieldName = 'ID_SOLICITANTE'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object cdsCadastroSolicitanteID_TIPO_SOLICITANTE: TFloatField
      FieldName = 'ID_TIPO_SOLICITANTE'
    end
    object cdsCadastroSolicitanteNOME_SOLICITANTE: TStringField
      FieldName = 'NOME_SOLICITANTE'
      Size = 50
    end
  end
  object dspCadastroSolicitante: TDataSetProvider
    DataSet = sqlCadastroSolicitante
    Left = 1240
    Top = 824
  end
  object sqlCadastroSolicitante: TSQLDataSet
    CommandText = 'select * from SOLICITANTE'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = SQLConnection1
    Left = 1240
    Top = 776
  end
  object dsCadastroSolicitanteV: TDataSource
    DataSet = cdsCadastroSolicitanteV
    Left = 1360
    Top = 936
  end
  object cdsCadastroSolicitanteV: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    ProviderName = 'dspCadastroSolicitanteV'
    Left = 1360
    Top = 880
    object cdsCadastroSolicitanteVID_TIPO_SOLICITANTE: TFloatField
      FieldName = 'ID_TIPO_SOLICITANTE'
      Required = True
      Visible = False
    end
    object cdsCadastroSolicitanteVVIRT_NOMETIPOOS: TStringField
      DisplayLabel = 'Tipo OS'
      FieldName = 'VIRT_NOMETIPOOS'
      Size = 50
    end
    object cdsCadastroSolicitanteVNOME_TIPO_SOLICITANTE: TStringField
      DisplayLabel = 'Tipo Solicitante'
      FieldName = 'NOME_TIPO_SOLICITANTE'
      Size = 50
    end
    object cdsCadastroSolicitanteVNOME_SOLICITANTE: TStringField
      DisplayLabel = 'Solicitante'
      FieldName = 'NOME_SOLICITANTE'
      Size = 50
    end
    object cdsCadastroSolicitanteVID_SOLICITANTE: TFloatField
      FieldName = 'ID_SOLICITANTE'
      Required = True
      Visible = False
    end
  end
  object dspCadastroSolicitanteV: TDataSetProvider
    DataSet = sqlCadastroSolicitanteV
    Left = 1360
    Top = 824
  end
  object sqlCadastroSolicitanteV: TSQLDataSet
    CommandText = 
      'select '#13#10'solicitante.id_solicitante,'#13#10'tipo_os.nome as Virt_NomeT' +
      'ipoOs,'#13#10'tipo_solicitante.id_tipo_solicitante,'#13#10'tipo_solicitante.' +
      'nome_tipo_solicitante,'#13#10'solicitante.nome_solicitante'#13#10'from'#13#10'tipo' +
      '_solicitante,'#13#10'solicitante,'#13#10'tipo_os'#13#10'WHERE'#13#10'tipo_solicitante.id' +
      '_tipo_solicitante = solicitante.id_tipo_solicitante and'#13#10'tipo_so' +
      'licitante.id_tipo_os = tipo_os.id_tipo_os'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = SQLConnection1
    Left = 1360
    Top = 776
  end
  object dsTipoSolicitanteP: TDataSource
    DataSet = cdsTipoSolicitanteP
    Left = 1136
    Top = 440
  end
  object cdsTipoSolicitanteP: TClientDataSet
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'ID_TIPO_SOLICITANTE'
        Attributes = [faRequired]
        DataType = ftFloat
      end
      item
        Name = 'ID_TIPO_OS'
        DataType = ftFloat
      end
      item
        Name = 'NOME_TIPO_SOLICITANTE'
        DataType = ftString
        Size = 50
      end>
    IndexDefs = <>
    Params = <
      item
        DataType = ftFloat
        Name = 'ID_TIPO_OS'
        ParamType = ptInput
      end>
    ProviderName = 'dspTipoSolicitanteP'
    StoreDefs = True
    Left = 1136
    Top = 384
    object cdsTipoSolicitantePID_TIPO_SOLICITANTE: TFloatField
      FieldName = 'ID_TIPO_SOLICITANTE'
      Required = True
    end
    object cdsTipoSolicitantePID_TIPO_OS: TFloatField
      FieldName = 'ID_TIPO_OS'
    end
    object cdsTipoSolicitantePNOME_TIPO_SOLICITANTE: TStringField
      FieldName = 'NOME_TIPO_SOLICITANTE'
      Size = 50
    end
  end
  object dspTipoSolicitanteP: TDataSetProvider
    DataSet = sqlTipoSolicitanteP
    Left = 1136
    Top = 328
  end
  object sqlTipoSolicitanteP: TSQLDataSet
    CommandText = 'select * from TIPO_SOLICITANTE where ID_TIPO_OS = :ID_TIPO_OS'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftFloat
        Name = 'ID_TIPO_OS'
        ParamType = ptInput
      end>
    SQLConnection = SQLConnection1
    Left = 1136
    Top = 280
  end
  object dsTipoSolicitanteO: TDataSource
    DataSet = cdsTipoSolicitanteO
    Left = 1248
    Top = 440
  end
  object cdsTipoSolicitanteO: TClientDataSet
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'ID_TIPO_SOLICITANTE'
        Attributes = [faRequired]
        DataType = ftFloat
      end
      item
        Name = 'ID_TIPO_OS'
        DataType = ftFloat
      end
      item
        Name = 'NOME_TIPO_SOLICITANTE'
        DataType = ftString
        Size = 50
      end>
    IndexDefs = <>
    Params = <
      item
        DataType = ftFloat
        Name = 'ID_TIPO_SOLICITANTE'
        ParamType = ptInput
      end>
    ProviderName = 'dspTipoSolicitanteO'
    StoreDefs = True
    Left = 1248
    Top = 384
    object cdsTipoSolicitanteOID_TIPO_SOLICITANTE: TFloatField
      FieldName = 'ID_TIPO_SOLICITANTE'
      Required = True
    end
    object cdsTipoSolicitanteOID_TIPO_OS: TFloatField
      FieldName = 'ID_TIPO_OS'
    end
    object cdsTipoSolicitanteONOME_TIPO_SOLICITANTE: TStringField
      FieldName = 'NOME_TIPO_SOLICITANTE'
      Size = 50
    end
  end
  object dspTipoSolicitanteO: TDataSetProvider
    DataSet = sqlTipoSolicitanteO
    Left = 1248
    Top = 328
  end
  object sqlTipoSolicitanteO: TSQLDataSet
    CommandText = 
      'select * from TIPO_SOLICITANTE where ID_TIPO_SOLICITANTE = :ID_T' +
      'IPO_SOLICITANTE'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftFloat
        Name = 'ID_TIPO_SOLICITANTE'
        ParamType = ptInput
      end>
    SQLConnection = SQLConnection1
    Left = 1248
    Top = 280
  end
  object dsCadastroCanteiro: TDataSource
    DataSet = cdsCadastroCanteiro
    Left = 1480
    Top = 936
  end
  object cdsCadastroCanteiro: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    ProviderName = 'dspCadastroCanteiro'
    Left = 1480
    Top = 880
    object cdsCadastroCanteiroID_CANTEIRO: TFloatField
      FieldName = 'ID_CANTEIRO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      Visible = False
    end
    object cdsCadastroCanteiroNOME_CANTEIRO_POPULAR: TStringField
      DisplayLabel = 'Nome Popular'
      FieldName = 'NOME_CANTEIRO_POPULAR'
      Size = 50
    end
    object cdsCadastroCanteiroNOME_CANTEIRO_CIENTIFICO: TStringField
      DisplayLabel = 'Nome Cient'#237'fico'
      FieldName = 'NOME_CANTEIRO_CIENTIFICO'
      Size = 50
    end
  end
  object dspCadastroCanteiro: TDataSetProvider
    DataSet = sqlCadastroCanteiro
    Left = 1480
    Top = 824
  end
  object sqlCadastroCanteiro: TSQLDataSet
    CommandText = 'select * from CANTEIRO'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = SQLConnection1
    Left = 1480
    Top = 776
  end
  object dsBuscaSubAreaP: TDataSource
    DataSet = cdsBuscaSubAreaP
    Left = 1344
    Top = 680
  end
  object cdsBuscaSubAreaP: TClientDataSet
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'ID_SUBAREA'
        Attributes = [faRequired]
        DataType = ftFloat
      end
      item
        Name = 'ID_AREA'
        DataType = ftFloat
      end
      item
        Name = 'NOME'
        DataType = ftString
        Size = 50
      end>
    IndexDefs = <>
    Params = <
      item
        DataType = ftFloat
        Name = 'ID_AREA'
        ParamType = ptInput
      end>
    ProviderName = 'dspBuscaSubAreaP'
    StoreDefs = True
    Left = 1344
    Top = 624
    object cdsBuscaSubAreaPID_SUBAREA: TFloatField
      FieldName = 'ID_SUBAREA'
      Required = True
      Visible = False
    end
    object cdsBuscaSubAreaPID_AREA: TFloatField
      FieldName = 'ID_AREA'
      Visible = False
    end
    object cdsBuscaSubAreaPNOME: TStringField
      DisplayLabel = 'Nome'
      DisplayWidth = 80
      FieldName = 'NOME'
      Size = 50
    end
  end
  object dspBuscaSubAreaP: TDataSetProvider
    DataSet = sqlBuscaSubAreaP
    Left = 1344
    Top = 568
  end
  object sqlBuscaSubAreaP: TSQLDataSet
    CommandText = 'select * from subareas where ID_AREA = :ID_AREA'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftFloat
        Name = 'ID_AREA'
        ParamType = ptInput
      end>
    SQLConnection = SQLConnection1
    Left = 1344
    Top = 520
  end
  object dsCadastroLocalizacaoV: TDataSource
    DataSet = cdsCadastroLocalizacaoV
    Left = 1048
    Top = 672
  end
  object cdsCadastroLocalizacaoV: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    ProviderName = 'dspCadastroLocalizacaoV'
    Left = 1048
    Top = 616
    object cdsCadastroLocalizacaoVID_LOCALIZACAO: TFloatField
      FieldName = 'ID_LOCALIZACAO'
      Required = True
      Visible = False
    end
    object cdsCadastroLocalizacaoVNOME: TStringField
      DisplayLabel = #193'rea'
      DisplayWidth = 30
      FieldName = 'NOME'
      Size = 50
    end
    object cdsCadastroLocalizacaoVNOME_1: TStringField
      DisplayLabel = 'Sub-'#193'rea'
      FieldName = 'NOME_1'
      Size = 50
    end
    object cdsCadastroLocalizacaoVNOME_LOCALIZACAO: TStringField
      DisplayLabel = 'Localiza'#231#227'o'
      FieldName = 'NOME_LOCALIZACAO'
      Size = 50
    end
    object cdsCadastroLocalizacaoVID_AREA: TFloatField
      FieldName = 'ID_AREA'
      Visible = False
    end
    object cdsCadastroLocalizacaoVID_SUBAREA: TFloatField
      FieldName = 'ID_SUBAREA'
      Visible = False
    end
  end
  object dspCadastroLocalizacaoV: TDataSetProvider
    DataSet = sqlCadastroLocalizacaoV
    Left = 1048
    Top = 560
  end
  object sqlCadastroLocalizacaoV: TSQLDataSet
    CommandText = 
      'select '#13#10'localizacao.id_localizacao,'#13#10'localizacao.nome_localizac' +
      'ao,'#13#10'localizacao.id_area,'#13#10'localizacao.id_subarea,'#13#10'areas.nome,'#13 +
      #10'subareas.nome'#13#10'from'#13#10'localizacao,'#13#10'areas,'#13#10'subareas'#13#10'WHERE'#13#10'loc' +
      'alizacao.id_area = areas.id_area and'#13#10'localizacao.id_subarea = s' +
      'ubareas.id_subarea'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = SQLConnection1
    Left = 1048
    Top = 512
  end
  object dsCadastroLocalizacao: TDataSource
    DataSet = cdsCadastroLocalizacao
    Left = 896
    Top = 672
  end
  object cdsCadastroLocalizacao: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    ProviderName = 'dspCadastroLocalizacao'
    Left = 896
    Top = 616
    object cdsCadastroLocalizacaoID_LOCALIZACAO: TFloatField
      FieldName = 'ID_LOCALIZACAO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object cdsCadastroLocalizacaoID_SUBAREA: TFloatField
      FieldName = 'ID_SUBAREA'
    end
    object cdsCadastroLocalizacaoID_AREA: TFloatField
      FieldName = 'ID_AREA'
    end
    object cdsCadastroLocalizacaoNOME_LOCALIZACAO: TStringField
      FieldName = 'NOME_LOCALIZACAO'
      Size = 50
    end
  end
  object dspCadastroLocalizacao: TDataSetProvider
    DataSet = sqlCadastroLocalizacao
    Left = 896
    Top = 560
  end
  object sqlCadastroLocalizacao: TSQLDataSet
    CommandText = 'select * from LOCALIZACAO'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = SQLConnection1
    Left = 896
    Top = 512
  end
  object dsAreaP: TDataSource
    DataSet = cdsAreaP
    Left = 1424
    Top = 680
  end
  object cdsAreaP: TClientDataSet
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'ID_AREA'
        Attributes = [faRequired]
        DataType = ftFloat
      end
      item
        Name = 'COD_MAPA'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'NOME'
        DataType = ftString
        Size = 50
      end>
    IndexDefs = <>
    Params = <
      item
        DataType = ftFloat
        Name = 'ID_AREA'
        ParamType = ptInput
      end>
    ProviderName = 'dspAreaP'
    StoreDefs = True
    Left = 1424
    Top = 624
    object cdsAreaPID_AREA: TFloatField
      FieldName = 'ID_AREA'
      Required = True
    end
    object cdsAreaPCOD_MAPA: TStringField
      FieldName = 'COD_MAPA'
    end
    object cdsAreaPNOME: TStringField
      FieldName = 'NOME'
      Size = 50
    end
  end
  object dspAreaP: TDataSetProvider
    DataSet = sqlAreaP
    Left = 1424
    Top = 568
  end
  object sqlAreaP: TSQLDataSet
    CommandText = 'select * from areas where ID_AREA = :ID_AREA'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftFloat
        Name = 'ID_AREA'
        ParamType = ptInput
      end>
    SQLConnection = SQLConnection1
    Left = 1424
    Top = 520
  end
  object dsSubAreaP: TDataSource
    DataSet = cdsSubAreaP
    Left = 1488
    Top = 680
  end
  object cdsSubAreaP: TClientDataSet
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'ID_SUBAREA'
        Attributes = [faRequired]
        DataType = ftFloat
      end
      item
        Name = 'ID_AREA'
        DataType = ftFloat
      end
      item
        Name = 'NOME'
        DataType = ftString
        Size = 50
      end>
    IndexDefs = <>
    Params = <
      item
        DataType = ftFloat
        Name = 'ID_AREA'
        ParamType = ptInput
      end>
    ProviderName = 'dspSubAreaP'
    StoreDefs = True
    Left = 1488
    Top = 624
    object cdsSubAreaPID_SUBAREA: TFloatField
      FieldName = 'ID_SUBAREA'
      Required = True
    end
    object cdsSubAreaPID_AREA: TFloatField
      FieldName = 'ID_AREA'
    end
    object cdsSubAreaPNOME: TStringField
      FieldName = 'NOME'
      Size = 50
    end
  end
  object dspSubAreaP: TDataSetProvider
    DataSet = sqlSubAreaP
    Left = 1488
    Top = 568
  end
  object sqlSubAreaP: TSQLDataSet
    CommandText = 'select * from subareas where ID_SUBAREA = :ID_SUBAREA'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftFloat
        Name = 'ID_AREA'
        ParamType = ptInput
      end>
    SQLConnection = SQLConnection1
    Left = 1488
    Top = 520
  end
  object dsSolicitanteP: TDataSource
    DataSet = cdsSolicitanteP
    Left = 1568
    Top = 680
  end
  object cdsSolicitanteP: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftFloat
        Name = 'ID_TIPO_SOLICITANTE'
        ParamType = ptInput
      end>
    ProviderName = 'dspSolicitanteP'
    Left = 1568
    Top = 624
    object cdsSolicitantePID_SOLICITANTE: TFloatField
      FieldName = 'ID_SOLICITANTE'
      Required = True
      Visible = False
    end
    object cdsSolicitantePID_TIPO_SOLICITANTE: TFloatField
      FieldName = 'ID_TIPO_SOLICITANTE'
      Visible = False
    end
    object cdsSolicitantePNOME_SOLICITANTE: TStringField
      DisplayLabel = 'Solicitante'
      DisplayWidth = 100
      FieldName = 'NOME_SOLICITANTE'
      Size = 50
    end
  end
  object dspSolicitanteP: TDataSetProvider
    DataSet = sqlSolicitanteP
    Left = 1568
    Top = 568
  end
  object sqlSolicitanteP: TSQLDataSet
    CommandText = 
      'select * from SOLICITANTE where ID_TIPO_SOLICITANTE = :ID_TIPO_S' +
      'OLICITANTE'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftFloat
        Name = 'ID_TIPO_SOLICITANTE'
        ParamType = ptInput
      end>
    SQLConnection = SQLConnection1
    Left = 1568
    Top = 520
  end
  object dsLocalizacaoP: TDataSource
    DataSet = cdsLocalizacaoP
    Left = 1648
    Top = 680
  end
  object cdsLocalizacaoP: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftFloat
        Name = 'ID_SUBAREA'
        ParamType = ptInput
      end>
    ProviderName = 'dspLocalizacaoP'
    Left = 1648
    Top = 624
    object cdsLocalizacaoPID_LOCALIZACAO: TFloatField
      FieldName = 'ID_LOCALIZACAO'
      Required = True
      Visible = False
    end
    object cdsLocalizacaoPID_SUBAREA: TFloatField
      FieldName = 'ID_SUBAREA'
      Visible = False
    end
    object cdsLocalizacaoPID_AREA: TFloatField
      FieldName = 'ID_AREA'
      Visible = False
    end
    object cdsLocalizacaoPNOME_LOCALIZACAO: TStringField
      DisplayLabel = 'Localiza'#231#227'o'
      DisplayWidth = 100
      FieldName = 'NOME_LOCALIZACAO'
      Size = 50
    end
  end
  object dspLocalizacaoP: TDataSetProvider
    DataSet = sqlLocalizacaoP
    Left = 1648
    Top = 568
  end
  object sqlLocalizacaoP: TSQLDataSet
    CommandText = 'select * from LOCALIZACAO WHERE ID_SUBAREA = :ID_SUBAREA'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftFloat
        Name = 'ID_SUBAREA'
        ParamType = ptInput
      end>
    SQLConnection = SQLConnection1
    Left = 1648
    Top = 520
  end
  object dsCadastroFuncionario: TDataSource
    DataSet = cdsCadastroFuncionario
    Left = 1592
    Top = 936
  end
  object cdsCadastroFuncionario: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    ProviderName = 'dspCadastroFuncionario'
    Left = 1592
    Top = 880
    object cdsCadastroFuncionarioID_FUNCIONARIO: TFloatField
      FieldName = 'ID_FUNCIONARIO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      Visible = False
    end
    object cdsCadastroFuncionarioNOME_FUNCIONARIO: TStringField
      DisplayLabel = 'Nome'
      DisplayWidth = 55
      FieldName = 'NOME_FUNCIONARIO'
      Size = 50
    end
    object cdsCadastroFuncionarioCPF: TStringField
      DisplayWidth = 16
      FieldName = 'CPF'
      Size = 12
    end
  end
  object dspCadastroFuncionario: TDataSetProvider
    DataSet = sqlCadastroFuncionario
    Left = 1592
    Top = 824
  end
  object sqlCadastroFuncionario: TSQLDataSet
    CommandText = 'select * from FUNCIONARIO'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = SQLConnection1
    Left = 1592
    Top = 776
  end
  object dsOSItens: TDataSource
    DataSet = cdsOSItens
    Left = 1672
    Top = 424
  end
  object cdsOSItens: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspOSItens'
    Left = 1672
    Top = 368
    object cdsOSItensID_OS: TFloatField
      FieldName = 'ID_OS'
    end
    object cdsOSItensID_FUNCIONARIO: TFloatField
      FieldName = 'ID_FUNCIONARIO'
    end
  end
  object dspOSItens: TDataSetProvider
    DataSet = sqlOSItens
    Left = 1672
    Top = 312
  end
  object sqlOSItens: TSQLDataSet
    CommandText = 'select * from OS_ITENS'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = SQLConnection1
    Left = 1672
    Top = 264
  end
  object dsCadastroOS: TDataSource
    DataSet = cdsCadastroOS
    Left = 1704
    Top = 944
  end
  object cdsCadastroOS: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspCadastroOS'
    Left = 1704
    Top = 888
    object cdsCadastroOSID_OS: TFloatField
      FieldName = 'ID_OS'
      Required = True
    end
    object cdsCadastroOSID_TIPO_OS: TFloatField
      FieldName = 'ID_TIPO_OS'
    end
    object cdsCadastroOSID_TIPO_SOLICITANTE: TFloatField
      FieldName = 'ID_TIPO_SOLICITANTE'
    end
    object cdsCadastroOSID_SOLICITANTE: TFloatField
      FieldName = 'ID_SOLICITANTE'
    end
    object cdsCadastroOSID_AREA: TFloatField
      FieldName = 'ID_AREA'
    end
    object cdsCadastroOSID_SUBAREA: TFloatField
      FieldName = 'ID_SUBAREA'
    end
    object cdsCadastroOSID_LOCALIZACAO: TFloatField
      FieldName = 'ID_LOCALIZACAO'
    end
    object cdsCadastroOSID_CANTEIRO: TFloatField
      FieldName = 'ID_CANTEIRO'
    end
    object cdsCadastroOSID_TRATAMENTO: TFloatField
      FieldName = 'ID_TRATAMENTO'
    end
    object cdsCadastroOSDURACAO: TIntegerField
      FieldName = 'DURACAO'
    end
    object cdsCadastroOSPERIODICIDADE: TIntegerField
      FieldName = 'PERIODICIDADE'
    end
    object cdsCadastroOSDATA_INICIO: TDateField
      FieldName = 'DATA_INICIO'
    end
    object cdsCadastroOSDATA_FIM: TDateField
      FieldName = 'DATA_FIM'
    end
    object cdsCadastroOSSTATUS: TStringField
      FieldName = 'STATUS'
      Size = 10
    end
    object cdsCadastroOSDATA_CRIACAO: TDateField
      FieldName = 'DATA_CRIACAO'
    end
    object cdsCadastroOSCANTEIRO: TStringField
      FieldName = 'CANTEIRO'
      Size = 50
    end
    object cdsCadastroOSID_FUNCIONARIO: TFloatField
      FieldName = 'ID_FUNCIONARIO'
    end
    object cdsCadastroOSACONDICIONAMENTO: TStringField
      FieldName = 'ACONDICIONAMENTO'
      Size = 10
    end
    object cdsCadastroOSID_ATIVIDADE: TIntegerField
      FieldName = 'ID_ATIVIDADE'
    end
    object cdsCadastroOSQUANTIDADE: TIntegerField
      FieldName = 'QUANTIDADE'
    end
    object cdsCadastroOSTEMPO: TIntegerField
      FieldName = 'TEMPO'
    end
    object cdsCadastroOSHISTORICO: TStringField
      FieldName = 'HISTORICO'
      Size = 1
    end
  end
  object dspCadastroOS: TDataSetProvider
    DataSet = sqlCadastroOS
    Left = 1704
    Top = 832
  end
  object sqlCadastroOS: TSQLDataSet
    CommandText = 'select * from ORDEM_SERVICO'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = SQLConnection1
    Left = 1704
    Top = 784
  end
  object dsCadastroOsV: TDataSource
    DataSet = cdsCadastroOsV
    Left = 1784
    Top = 944
  end
  object cdsCadastroOsV: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspCadastroOsV'
    Left = 1784
    Top = 888
    object cdsCadastroOsVSTATUS: TStringField
      DisplayLabel = ' '
      DisplayWidth = 3
      FieldName = 'STATUS'
      Size = 10
    end
    object cdsCadastroOsVHISTORICO: TStringField
      DisplayLabel = ' '
      DisplayWidth = 3
      FieldName = 'HISTORICO'
      Size = 1
    end
    object cdsCadastroOsVID_OS: TFloatField
      Alignment = taLeftJustify
      DisplayLabel = 'N'#186
      DisplayWidth = 6
      FieldName = 'ID_OS'
      Required = True
    end
    object cdsCadastroOsVID_TIPO_OS: TFloatField
      DisplayWidth = 10
      FieldName = 'ID_TIPO_OS'
      Visible = False
    end
    object cdsCadastroOsVID_TIPO_SOLICITANTE: TFloatField
      FieldName = 'ID_TIPO_SOLICITANTE'
      Visible = False
    end
    object cdsCadastroOsVID_SOLICITANTE: TFloatField
      FieldName = 'ID_SOLICITANTE'
      Visible = False
    end
    object cdsCadastroOsVNOME: TStringField
      DisplayLabel = 'Tipo OS'
      DisplayWidth = 15
      FieldName = 'NOME'
      Size = 50
    end
    object cdsCadastroOsVID_AREA: TFloatField
      FieldName = 'ID_AREA'
      Visible = False
    end
    object cdsCadastroOsVID_SUBAREA: TFloatField
      FieldName = 'ID_SUBAREA'
      Visible = False
    end
    object cdsCadastroOsVID_LOCALIZACAO: TFloatField
      FieldName = 'ID_LOCALIZACAO'
      Visible = False
    end
    object cdsCadastroOsVID_CANTEIRO: TFloatField
      FieldName = 'ID_CANTEIRO'
      Visible = False
    end
    object cdsCadastroOsVID_TRATAMENTO: TFloatField
      FieldName = 'ID_TRATAMENTO'
      Visible = False
    end
    object cdsCadastroOsVNOME_SOLICITANTE: TStringField
      DisplayLabel = 'Solicitante'
      DisplayWidth = 20
      FieldName = 'NOME_SOLICITANTE'
      Size = 50
    end
    object cdsCadastroOsVNOME_TIPO_SOLICITANTE: TStringField
      DisplayLabel = 'Tipo Solicitante'
      DisplayWidth = 15
      FieldName = 'NOME_TIPO_SOLICITANTE'
      Size = 50
    end
    object cdsCadastroOsVNOME_1: TStringField
      DisplayLabel = #193'rea'
      DisplayWidth = 20
      FieldName = 'NOME_1'
      Size = 50
    end
    object cdsCadastroOsVNOME_2: TStringField
      DisplayLabel = 'Sub-'#193'rea'
      DisplayWidth = 20
      FieldName = 'NOME_2'
      Size = 50
    end
    object cdsCadastroOsVNOME_LOCALIZACAO: TStringField
      DisplayLabel = 'Localiza'#231#227'o'
      DisplayWidth = 20
      FieldName = 'NOME_LOCALIZACAO'
      Size = 50
    end
    object cdsCadastroOsVCANTEIRO: TStringField
      DisplayLabel = 'Esp'#233'cie'
      DisplayWidth = 20
      FieldName = 'CANTEIRO'
      Size = 50
    end
    object cdsCadastroOsVNOME_CANTEIRO_POPULAR: TStringField
      DisplayWidth = 30
      FieldName = 'NOME_CANTEIRO_POPULAR'
      Visible = False
      Size = 50
    end
    object cdsCadastroOsVNOME_3: TStringField
      DisplayLabel = 'Servi'#231'o'
      DisplayWidth = 20
      FieldName = 'NOME_3'
      Size = 50
    end
    object cdsCadastroOsVNOME_FUNCIONARIO: TStringField
      DisplayLabel = 'Respons'#225'vel'
      DisplayWidth = 30
      FieldName = 'NOME_FUNCIONARIO'
      Size = 50
    end
    object cdsCadastroOsVACONDICIONAMENTO: TStringField
      DisplayLabel = 'Acondicionamento'
      FieldName = 'ACONDICIONAMENTO'
      Size = 10
    end
    object cdsCadastroOsVID_ATIVIDADE: TIntegerField
      FieldName = 'ID_ATIVIDADE'
      Visible = False
    end
    object cdsCadastroOsVNOME_4: TStringField
      DisplayLabel = 'Atividade'
      DisplayWidth = 20
      FieldName = 'NOME_4'
      Size = 100
    end
    object cdsCadastroOsVDATA_INICIO: TDateField
      DisplayLabel = 'Data Inicio'
      FieldName = 'DATA_INICIO'
    end
    object cdsCadastroOsVDURACAO: TIntegerField
      Alignment = taLeftJustify
      DisplayLabel = 'Dura'#231#227'o'
      DisplayWidth = 7
      FieldName = 'DURACAO'
    end
    object cdsCadastroOsVDATA_FIM: TDateField
      DisplayLabel = 'Data Fim'
      FieldName = 'DATA_FIM'
    end
    object cdsCadastroOsVPERIODICIDADE: TIntegerField
      DisplayLabel = 'Periodicidade'
      FieldName = 'PERIODICIDADE'
      Visible = False
    end
    object cdsCadastroOsVDATA_CRIACAO: TDateField
      DisplayLabel = 'Data Cria'#231#227'o'
      FieldName = 'DATA_CRIACAO'
      Visible = False
    end
    object cdsCadastroOsVID_FUNCIONARIO: TFloatField
      FieldName = 'ID_FUNCIONARIO'
      Visible = False
    end
    object cdsCadastroOsVQUANTIDADE: TIntegerField
      DisplayLabel = 'Quantidade'
      FieldName = 'QUANTIDADE'
    end
    object cdsCadastroOsVTEMPO: TIntegerField
      DisplayLabel = 'Tempo'
      FieldName = 'TEMPO'
    end
  end
  object dspCadastroOsV: TDataSetProvider
    DataSet = sqlCadastroOsV
    Left = 1784
    Top = 832
  end
  object sqlCadastroOsV: TSQLDataSet
    CommandText = 
      'SELECT '#13#10'ORDEM_SERVICO.*,'#13#10'TIPO_OS.NOME,'#13#10'TIPO_SOLICITANTE.NOME_' +
      'TIPO_SOLICITANTE,'#13#10'SOLICITANTE.NOME_SOLICITANTE,'#13#10'AREAS.NOME,'#13#10'S' +
      'UBAREAS.NOME,'#13#10'LOCALIZACAO.NOME_LOCALIZACAO,'#13#10'CANTEIRO.NOME_CANT' +
      'EIRO_POPULAR,'#13#10'TRATAMENTO.NOME,'#13#10'FUNCIONARIO.NOME_FUNCIONARIO,'#13#10 +
      'ATIVIDADE.NOME'#13#10'FROM'#13#10'ORDEM_SERVICO'#13#10' left outer join canteiro o' +
      'n ordem_Servico.id_canteiro = canteiro.id_canteiro '#13#10' left outer' +
      ' join tipo_os  on ordem_Servico.id_tipo_os = tipo_os.id_tipo_os'#13 +
      #10' left outer join TIPO_SOLICITANTE on ordem_Servico.id_tipo_soli' +
      'citante = TIPO_SOLICITANTE.id_tipo_solicitante'#13#10' left outer join' +
      ' SOLICITANTE on ordem_Servico.id_solicitante = SOLICITANTE.id_so' +
      'licitante'#13#10' left outer join AREAS on ordem_Servico.id_area = ARE' +
      'AS.id_area'#13#10' left outer join SUBAREAS on ordem_Servico.id_subare' +
      'a = SUBAREAS.id_subarea'#13#10' left outer join TRATAMENTO on ordem_Se' +
      'rvico.id_tratamento = TRATAMENTO.id_tratamento'#13#10' left outer join' +
      ' LOCALIZACAO on ordem_Servico.id_localizacao = LOCALIZACAO.id_lo' +
      'calizacao'#13#10' left outer join FUNCIONARIO on ordem_Servico.id_func' +
      'ionario = FUNCIONARIO.id_funcionario'#13#10' left outer join ATIVIDADE' +
      ' on ordem_Servico.id_atividade = ATIVIDADE.id_atividade'#13#10'ORDER B' +
      'Y ORDEM_SERVICO.ID_OS'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = SQLConnection1
    Left = 1784
    Top = 784
  end
  object dsOsItensV: TDataSource
    DataSet = cdsOsItensV
    Left = 1224
    Top = 680
  end
  object cdsOsItensV: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspOsItensV'
    Left = 1224
    Top = 624
    object cdsOsItensVNOME_FUNCIONARIO: TStringField
      DisplayLabel = 'Funcion'#225'rio Respos'#225'vel'
      DisplayWidth = 47
      FieldName = 'NOME_FUNCIONARIO'
      Size = 50
    end
    object cdsOsItensVID_OS: TFloatField
      FieldName = 'ID_OS'
      Visible = False
    end
  end
  object dspOsItensV: TDataSetProvider
    DataSet = sqlOsItensV
    Left = 1224
    Top = 568
  end
  object sqlOsItensV: TSQLDataSet
    CommandText = 
      'SELECT'#13#10'OS_ITENS.ID_OS,'#13#10'FUNCIONARIO.NOME_FUNCIONARIO'#13#10'FROM'#13#10'OS_' +
      'ITENS,'#13#10'FUNCIONARIO'#13#10'WHERE'#13#10'OS_ITENS.ID_FUNCIONARIO = FUNCIONARI' +
      'O.ID_FUNCIONARIO'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = SQLConnection1
    Left = 1224
    Top = 520
  end
  object dsAcompanhamentoOS: TDataSource
    DataSet = cdsAcompanhamentoOS
    Left = 1416
    Top = 176
  end
  object cdsAcompanhamentoOS: TClientDataSet
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'ID_ORDEM_SERVICO_ACOMPANHAMENTO'
        Attributes = [faRequired]
        DataType = ftFloat
      end
      item
        Name = 'ID_OS'
        DataType = ftFloat
      end
      item
        Name = '01'
        DataType = ftString
        Size = 3
      end
      item
        Name = '02'
        DataType = ftString
        Size = 3
      end
      item
        Name = '03'
        DataType = ftString
        Size = 3
      end
      item
        Name = '04'
        DataType = ftString
        Size = 3
      end
      item
        Name = '05'
        DataType = ftString
        Size = 3
      end
      item
        Name = '06'
        DataType = ftString
        Size = 3
      end
      item
        Name = '07'
        DataType = ftString
        Size = 3
      end
      item
        Name = '08'
        DataType = ftString
        Size = 3
      end
      item
        Name = '09'
        DataType = ftString
        Size = 3
      end
      item
        Name = '10'
        DataType = ftString
        Size = 3
      end
      item
        Name = '11'
        DataType = ftString
        Size = 3
      end
      item
        Name = '12'
        DataType = ftString
        Size = 3
      end
      item
        Name = '13'
        DataType = ftString
        Size = 3
      end
      item
        Name = '14'
        DataType = ftString
        Size = 3
      end
      item
        Name = '15'
        DataType = ftString
        Size = 3
      end
      item
        Name = '16'
        DataType = ftString
        Size = 3
      end
      item
        Name = '17'
        DataType = ftString
        Size = 3
      end
      item
        Name = '18'
        DataType = ftString
        Size = 3
      end
      item
        Name = '19'
        DataType = ftString
        Size = 3
      end
      item
        Name = '20'
        DataType = ftString
        Size = 3
      end
      item
        Name = '21'
        DataType = ftString
        Size = 3
      end
      item
        Name = '22'
        DataType = ftString
        Size = 3
      end
      item
        Name = '23'
        DataType = ftString
        Size = 3
      end
      item
        Name = '24'
        DataType = ftString
        Size = 3
      end
      item
        Name = '25'
        DataType = ftString
        Size = 3
      end
      item
        Name = '26'
        DataType = ftString
        Size = 3
      end
      item
        Name = '27'
        DataType = ftString
        Size = 3
      end
      item
        Name = '28'
        DataType = ftString
        Size = 3
      end
      item
        Name = '29'
        DataType = ftString
        Size = 3
      end
      item
        Name = '30'
        DataType = ftString
        Size = 3
      end
      item
        Name = '31'
        DataType = ftString
        Size = 3
      end
      item
        Name = 'DATA_REFERENCIA'
        DataType = ftDate
      end>
    IndexDefs = <>
    Params = <>
    ProviderName = 'dspAcompanhamentoOS'
    StoreDefs = True
    Left = 1416
    Top = 120
    object cdsAcompanhamentoOSID_ORDEM_SERVICO_ACOMPANHAMENTO: TFloatField
      FieldName = 'ID_ORDEM_SERVICO_ACOMPANHAMENTO'
      Required = True
    end
    object cdsAcompanhamentoOSID_OS: TFloatField
      FieldName = 'ID_OS'
    end
    object cdsAcompanhamentoOSStringField01: TStringField
      FieldName = '01'
      Size = 3
    end
    object cdsAcompanhamentoOSStringField02: TStringField
      FieldName = '02'
      Size = 3
    end
    object cdsAcompanhamentoOSStringField03: TStringField
      FieldName = '03'
      Size = 3
    end
    object cdsAcompanhamentoOSStringField04: TStringField
      FieldName = '04'
      Size = 3
    end
    object cdsAcompanhamentoOSStringField05: TStringField
      FieldName = '05'
      Size = 3
    end
    object cdsAcompanhamentoOSStringField06: TStringField
      FieldName = '06'
      Size = 3
    end
    object cdsAcompanhamentoOSStringField07: TStringField
      FieldName = '07'
      Size = 3
    end
    object cdsAcompanhamentoOSStringField08: TStringField
      FieldName = '08'
      Size = 3
    end
    object cdsAcompanhamentoOSStringField09: TStringField
      FieldName = '09'
      Size = 3
    end
    object cdsAcompanhamentoOSStringField10: TStringField
      FieldName = '10'
      Size = 3
    end
    object cdsAcompanhamentoOSStringField11: TStringField
      FieldName = '11'
      Size = 3
    end
    object cdsAcompanhamentoOSStringField12: TStringField
      FieldName = '12'
      Size = 3
    end
    object cdsAcompanhamentoOSStringField13: TStringField
      FieldName = '13'
      Size = 3
    end
    object cdsAcompanhamentoOSStringField14: TStringField
      FieldName = '14'
      Size = 3
    end
    object cdsAcompanhamentoOSStringField15: TStringField
      FieldName = '15'
      Size = 3
    end
    object cdsAcompanhamentoOSStringField16: TStringField
      FieldName = '16'
      Size = 3
    end
    object cdsAcompanhamentoOSStringField17: TStringField
      FieldName = '17'
      Size = 3
    end
    object cdsAcompanhamentoOSStringField18: TStringField
      FieldName = '18'
      Size = 3
    end
    object cdsAcompanhamentoOSStringField19: TStringField
      FieldName = '19'
      Size = 3
    end
    object cdsAcompanhamentoOSStringField20: TStringField
      FieldName = '20'
      Size = 3
    end
    object cdsAcompanhamentoOSStringField21: TStringField
      FieldName = '21'
      Size = 3
    end
    object cdsAcompanhamentoOSStringField22: TStringField
      FieldName = '22'
      Size = 3
    end
    object cdsAcompanhamentoOSStringField23: TStringField
      FieldName = '23'
      Size = 3
    end
    object cdsAcompanhamentoOSStringField24: TStringField
      FieldName = '24'
      Size = 3
    end
    object cdsAcompanhamentoOSStringField25: TStringField
      FieldName = '25'
      Size = 3
    end
    object cdsAcompanhamentoOSStringField26: TStringField
      FieldName = '26'
      Size = 3
    end
    object cdsAcompanhamentoOSStringField27: TStringField
      FieldName = '27'
      Size = 3
    end
    object cdsAcompanhamentoOSStringField28: TStringField
      FieldName = '28'
      Size = 3
    end
    object cdsAcompanhamentoOSStringField29: TStringField
      FieldName = '29'
      Size = 3
    end
    object cdsAcompanhamentoOSStringField30: TStringField
      FieldName = '30'
      Size = 3
    end
    object cdsAcompanhamentoOSStringField31: TStringField
      FieldName = '31'
      Size = 3
    end
    object cdsAcompanhamentoOSDATA_REFERENCIA: TDateField
      FieldName = 'DATA_REFERENCIA'
    end
  end
  object dspAcompanhamentoOS: TDataSetProvider
    DataSet = sqlAcompanhamentoOS
    Left = 1416
    Top = 64
  end
  object sqlAcompanhamentoOS: TSQLDataSet
    CommandText = 'select * from ORDEM_SERVICO_ACOMPANHAMENTO'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = SQLConnection1
    Left = 1416
    Top = 16
  end
  object dsAcompanhamentoOSV: TDataSource
    DataSet = cdsAcompanhamentoOSV
    Left = 1536
    Top = 184
  end
  object cdsAcompanhamentoOSV: TClientDataSet
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'NOME'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'CANTEIRO'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'NOME_LOCALIZACAO'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'NOME_1'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'NOME_2'
        DataType = ftString
        Size = 100
      end
      item
        Name = 'ID_ORDEM_SERVICO_ACOMPANHAMENTO'
        Attributes = [faRequired]
        DataType = ftFloat
      end
      item
        Name = 'ID_OS'
        DataType = ftFloat
      end
      item
        Name = '01'
        DataType = ftString
        Size = 3
      end
      item
        Name = '02'
        DataType = ftString
        Size = 3
      end
      item
        Name = '03'
        DataType = ftString
        Size = 3
      end
      item
        Name = '04'
        DataType = ftString
        Size = 3
      end
      item
        Name = '05'
        DataType = ftString
        Size = 3
      end
      item
        Name = '06'
        DataType = ftString
        Size = 3
      end
      item
        Name = '07'
        DataType = ftString
        Size = 3
      end
      item
        Name = '08'
        DataType = ftString
        Size = 3
      end
      item
        Name = '09'
        DataType = ftString
        Size = 3
      end
      item
        Name = '10'
        DataType = ftString
        Size = 3
      end
      item
        Name = '11'
        DataType = ftString
        Size = 3
      end
      item
        Name = '12'
        DataType = ftString
        Size = 3
      end
      item
        Name = '13'
        DataType = ftString
        Size = 3
      end
      item
        Name = '14'
        DataType = ftString
        Size = 3
      end
      item
        Name = '15'
        DataType = ftString
        Size = 3
      end
      item
        Name = '16'
        DataType = ftString
        Size = 3
      end
      item
        Name = '17'
        DataType = ftString
        Size = 3
      end
      item
        Name = '18'
        DataType = ftString
        Size = 3
      end
      item
        Name = '19'
        DataType = ftString
        Size = 3
      end
      item
        Name = '20'
        DataType = ftString
        Size = 3
      end
      item
        Name = '21'
        DataType = ftString
        Size = 3
      end
      item
        Name = '22'
        DataType = ftString
        Size = 3
      end
      item
        Name = '23'
        DataType = ftString
        Size = 3
      end
      item
        Name = '24'
        DataType = ftString
        Size = 3
      end
      item
        Name = '25'
        DataType = ftString
        Size = 3
      end
      item
        Name = '26'
        DataType = ftString
        Size = 3
      end
      item
        Name = '27'
        DataType = ftString
        Size = 3
      end
      item
        Name = '28'
        DataType = ftString
        Size = 3
      end
      item
        Name = '29'
        DataType = ftString
        Size = 3
      end
      item
        Name = '30'
        DataType = ftString
        Size = 3
      end
      item
        Name = '31'
        DataType = ftString
        Size = 3
      end
      item
        Name = 'DATA_REFERENCIA'
        DataType = ftDate
      end
      item
        Name = 'DATA_INICIO'
        DataType = ftDate
      end
      item
        Name = 'DATA_FIM'
        DataType = ftDate
      end
      item
        Name = 'DURACAO'
        DataType = ftInteger
      end>
    IndexDefs = <>
    Params = <>
    ProviderName = 'dspAcompanhamentoOSV'
    StoreDefs = True
    Left = 1536
    Top = 128
    object cdsAcompanhamentoOSVID_OS: TFloatField
      Alignment = taLeftJustify
      DisplayLabel = 'N'#186
      DisplayWidth = 8
      FieldName = 'ID_OS'
    end
    object cdsAcompanhamentoOSVNOME: TStringField
      DisplayLabel = 'Sub-'#193'rea'
      DisplayWidth = 28
      FieldName = 'NOME'
      Size = 50
    end
    object cdsAcompanhamentoOSVCANTEIRO: TStringField
      DisplayLabel = 'Canteiro'
      DisplayWidth = 30
      FieldName = 'CANTEIRO'
      Size = 50
    end
    object cdsAcompanhamentoOSVNOME_LOCALIZACAO: TStringField
      DisplayLabel = 'Localiza'#231#227'o'
      DisplayWidth = 35
      FieldName = 'NOME_LOCALIZACAO'
      Size = 50
    end
    object cdsAcompanhamentoOSVNOME_1: TStringField
      DisplayLabel = 'Tratamento'
      DisplayWidth = 30
      FieldName = 'NOME_1'
      Size = 50
    end
    object cdsAcompanhamentoOSVNOME_2: TStringField
      DisplayLabel = 'Atividade'
      DisplayWidth = 30
      FieldName = 'NOME_2'
      Size = 100
    end
    object cdsAcompanhamentoOSVStringField01: TStringField
      Alignment = taCenter
      FieldName = '01'
      Size = 3
    end
    object cdsAcompanhamentoOSVStringField02: TStringField
      Alignment = taCenter
      FieldName = '02'
      Size = 3
    end
    object cdsAcompanhamentoOSVStringField03: TStringField
      Alignment = taCenter
      FieldName = '03'
      Size = 3
    end
    object cdsAcompanhamentoOSVStringField04: TStringField
      Alignment = taCenter
      FieldName = '04'
      Size = 3
    end
    object cdsAcompanhamentoOSVStringField05: TStringField
      Alignment = taCenter
      FieldName = '05'
      Size = 3
    end
    object cdsAcompanhamentoOSVStringField06: TStringField
      Alignment = taCenter
      FieldName = '06'
      Size = 3
    end
    object cdsAcompanhamentoOSVStringField07: TStringField
      Alignment = taCenter
      FieldName = '07'
      Size = 3
    end
    object cdsAcompanhamentoOSVStringField08: TStringField
      Alignment = taCenter
      FieldName = '08'
      Size = 3
    end
    object cdsAcompanhamentoOSVStringField09: TStringField
      Alignment = taCenter
      FieldName = '09'
      Size = 3
    end
    object cdsAcompanhamentoOSVStringField10: TStringField
      Alignment = taCenter
      FieldName = '10'
      Size = 3
    end
    object cdsAcompanhamentoOSVStringField11: TStringField
      Alignment = taCenter
      FieldName = '11'
      Size = 3
    end
    object cdsAcompanhamentoOSVStringField12: TStringField
      Alignment = taCenter
      FieldName = '12'
      Size = 3
    end
    object cdsAcompanhamentoOSVStringField13: TStringField
      Alignment = taCenter
      FieldName = '13'
      Size = 3
    end
    object cdsAcompanhamentoOSVStringField14: TStringField
      Alignment = taCenter
      FieldName = '14'
      Size = 3
    end
    object cdsAcompanhamentoOSVStringField15: TStringField
      Alignment = taCenter
      FieldName = '15'
      Size = 3
    end
    object cdsAcompanhamentoOSVStringField16: TStringField
      Alignment = taCenter
      FieldName = '16'
      Size = 3
    end
    object cdsAcompanhamentoOSVStringField17: TStringField
      Alignment = taCenter
      FieldName = '17'
      Size = 3
    end
    object cdsAcompanhamentoOSVStringField18: TStringField
      Alignment = taCenter
      FieldName = '18'
      Size = 3
    end
    object cdsAcompanhamentoOSVStringField19: TStringField
      Alignment = taCenter
      FieldName = '19'
      Size = 3
    end
    object cdsAcompanhamentoOSVStringField20: TStringField
      Alignment = taCenter
      FieldName = '20'
      Size = 3
    end
    object cdsAcompanhamentoOSVStringField21: TStringField
      Alignment = taCenter
      FieldName = '21'
      Size = 3
    end
    object cdsAcompanhamentoOSVStringField22: TStringField
      Alignment = taCenter
      FieldName = '22'
      Size = 3
    end
    object cdsAcompanhamentoOSVStringField23: TStringField
      Alignment = taCenter
      FieldName = '23'
      Size = 3
    end
    object cdsAcompanhamentoOSVStringField24: TStringField
      Alignment = taCenter
      FieldName = '24'
      Size = 3
    end
    object cdsAcompanhamentoOSVStringField25: TStringField
      Alignment = taCenter
      FieldName = '25'
      Size = 3
    end
    object cdsAcompanhamentoOSVStringField26: TStringField
      Alignment = taCenter
      FieldName = '26'
      Size = 3
    end
    object cdsAcompanhamentoOSVStringField27: TStringField
      Alignment = taCenter
      FieldName = '27'
      Size = 3
    end
    object cdsAcompanhamentoOSVStringField28: TStringField
      Alignment = taCenter
      FieldName = '28'
      Size = 3
    end
    object cdsAcompanhamentoOSVStringField29: TStringField
      Alignment = taCenter
      FieldName = '29'
      Size = 3
    end
    object cdsAcompanhamentoOSVStringField30: TStringField
      Alignment = taCenter
      FieldName = '30'
      Size = 3
    end
    object cdsAcompanhamentoOSVStringField31: TStringField
      Alignment = taCenter
      FieldName = '31'
      Size = 3
    end
    object cdsAcompanhamentoOSVID_ORDEM_SERVICO_ACOMPANHAMENTO: TFloatField
      DisplayWidth = 42
      FieldName = 'ID_ORDEM_SERVICO_ACOMPANHAMENTO'
      Required = True
      Visible = False
    end
    object cdsAcompanhamentoOSVDATA_INICIO: TDateField
      FieldName = 'DATA_INICIO'
      Visible = False
    end
    object cdsAcompanhamentoOSVDATA_FIM: TDateField
      FieldName = 'DATA_FIM'
      Visible = False
    end
    object cdsAcompanhamentoOSVDURACAO: TIntegerField
      FieldName = 'DURACAO'
      Visible = False
    end
    object cdsAcompanhamentoOSVDATA_REFERENCIA: TDateField
      FieldName = 'DATA_REFERENCIA'
      Visible = False
    end
  end
  object dspAcompanhamentoOSV: TDataSetProvider
    DataSet = sqlAcompanhamentoOSV
    Left = 1536
    Top = 72
  end
  object sqlAcompanhamentoOSV: TSQLDataSet
    CommandText = 
      'SELECT'#13#10'subareas.nome,'#13#10'ordem_servico.canteiro,'#13#10'localizacao.nom' +
      'e_localizacao,'#13#10'tratamento.nome,'#13#10'atividade.nome,'#13#10'ordem_servico' +
      '_acompanhamento.*,'#13#10'ordem_servico.data_inicio,'#13#10'ordem_servico.da' +
      'ta_fim,'#13#10'ordem_servico.duracao'#13#10'FROM'#13#10'ordem_servico_acompanhamen' +
      'to,'#13#10'subareas,'#13#10'ordem_servico,'#13#10'localizacao,'#13#10'tratamento,'#13#10'ativi' +
      'dade '#13#10'WHERE'#13#10'ordem_servico_acompanhamento.id_os = ordem_servico' +
      '.id_os AND'#13#10'ordem_servico.id_subarea = subareas.id_area AND'#13#10'ord' +
      'em_servico.id_localizacao = localizacao.id_localizacao AND'#13#10'orde' +
      'm_servico.id_tratamento = tratamento.id_tratamento and '#13#10'ordem_s' +
      'ervico.id_atividade = atividade.id_atividade '#13#10'order by ordem_se' +
      'rvico_acompanhamento.id_os'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = SQLConnection1
    Left = 1536
    Top = 24
  end
  object dsEquipe: TDataSource
    Left = 1672
    Top = 184
  end
  object cdsEquipe: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 1672
    Top = 128
  end
  object dspEquipe: TDataSetProvider
    Left = 1672
    Top = 72
  end
  object sqlEquipe: TSQLDataSet
    Params = <>
    Left = 1672
    Top = 24
  end
  object dsAdicionaFuncionario: TDataSource
    DataSet = cdsAdicionaFuncionario
    Left = 1768
    Top = 184
  end
  object cdsAdicionaFuncionario: TClientDataSet
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'ID_FUNCIONARIO'
        Attributes = [faRequired]
        DataType = ftFloat
      end
      item
        Name = 'NOME_FUNCIONARIO'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'CPF'
        DataType = ftString
        Size = 12
      end>
    IndexDefs = <>
    Params = <
      item
        DataType = ftFloat
        Name = 'id_funcionario'
        ParamType = ptInput
      end>
    ProviderName = 'dspAdicionaFuncionario'
    StoreDefs = True
    Left = 1760
    Top = 128
    object cdsAdicionaFuncionarioID_FUNCIONARIO: TFloatField
      FieldName = 'ID_FUNCIONARIO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object cdsAdicionaFuncionarioNOME_FUNCIONARIO: TStringField
      FieldName = 'NOME_FUNCIONARIO'
      Size = 50
    end
    object cdsAdicionaFuncionarioCPF: TStringField
      FieldName = 'CPF'
      Size = 12
    end
    object cdsAdicionaFuncionariomarcado: TBooleanField
      FieldKind = fkCalculated
      FieldName = 'marcado'
      Calculated = True
    end
  end
  object dspAdicionaFuncionario: TDataSetProvider
    DataSet = sqlAdicionaFuncionario
    Left = 1760
    Top = 72
  end
  object sqlAdicionaFuncionario: TSQLDataSet
    CommandText = 
      'select * from FUNCIONARIO'#13#10'where id_funcionario <> :id_funcionar' +
      'io'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftFloat
        Name = 'id_funcionario'
        ParamType = ptInput
      end>
    SQLConnection = SQLConnection1
    Left = 1760
    Top = 24
  end
  object cdsTelaAdicionaFunc: TClientDataSet
    Active = True
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'id_funcionario'
        DataType = ftInteger
      end
      item
        Name = 'nome'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'marcado'
        DataType = ftBoolean
      end>
    IndexDefs = <>
    Params = <>
    StoreDefs = True
    Left = 1872
    Top = 24
    Data = {
      5A0000009619E0BD0100000018000000030000000000030000005A000E69645F
      66756E63696F6E6172696F0400010000000000046E6F6D650100490000000100
      055749445448020002003200076D61726361646F02000300000000000000}
    object cdsTelaAdicionaFuncmarcado: TBooleanField
      DisplayLabel = ' '
      DisplayWidth = 3
      FieldName = 'marcado'
    end
    object cdsTelaAdicionaFuncid_funcionario: TIntegerField
      FieldName = 'id_funcionario'
      Visible = False
    end
    object cdsTelaAdicionaFuncnome: TStringField
      DisplayLabel = 'Nome'
      DisplayWidth = 80
      FieldName = 'nome'
      Size = 50
    end
  end
  object dsTelaAdicionaFunc: TDataSource
    DataSet = cdsTelaAdicionaFunc
    Left = 1872
    Top = 88
  end
  object cdsVFuncionarios: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    Left = 1868
    Top = 144
    Data = {
      4A0000009619E0BD0100000018000000020000000000030000004A000E69645F
      66756E63696F6E6172696F0400010000000000046E6F6D650100490000000100
      0557494454480200020032000000}
    object cdsVFuncionariosid_funcionario: TIntegerField
      FieldName = 'id_funcionario'
      Visible = False
    end
    object cdsVFuncionariosnome: TStringField
      DisplayLabel = ' '
      DisplayWidth = 45
      FieldName = 'nome'
      Size = 50
    end
  end
  object dsVFuncionarios: TDataSource
    DataSet = cdsVFuncionarios
    Left = 1864
    Top = 200
  end
  object cdsHistorico: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspHistorico'
    Left = 1784
    Top = 376
    object cdsHistoricoID_OS: TFloatField
      FieldName = 'ID_OS'
    end
    object cdsHistoricoHISTORICO: TBlobField
      FieldName = 'HISTORICO'
      Size = 1
    end
    object cdsHistoricoTIPO: TStringField
      FieldName = 'TIPO'
    end
    object cdsHistoricoDATA: TDateField
      FieldName = 'DATA'
    end
  end
  object dspHistorico: TDataSetProvider
    DataSet = sqlHistorico
    Left = 1784
    Top = 320
  end
  object sqlHistorico: TSQLDataSet
    CommandText = 'select * from os_historico'
    MaxBlobSize = 1
    Params = <>
    SQLConnection = SQLConnection1
    Left = 1784
    Top = 272
  end
  object dsAcompanhamentoP: TDataSource
    DataSet = cdsAcompanhamentoP
    Left = 1960
    Top = 584
  end
  object cdsAcompanhamentoP: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftFloat
        Name = 'id_os'
        ParamType = ptInput
      end>
    ProviderName = 'dspAcompanhamentoP'
    Left = 1960
    Top = 528
  end
  object dspAcompanhamentoP: TDataSetProvider
    DataSet = sqlAcompanhamentoP
    Left = 1960
    Top = 472
  end
  object sqlAcompanhamentoP: TSQLDataSet
    CommandText = 'select * from ORDEM_SERVICO_ACOMPANHAMENTO where id_os = :id_os'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftFloat
        Name = 'id_os'
        ParamType = ptInput
      end>
    SQLConnection = SQLConnection1
    Left = 1960
    Top = 424
  end
  object dsUsuario: TDataSource
    DataSet = cdsUsuario
    Left = 1752
    Top = 680
  end
  object cdsUsuario: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'id_usuario'
        ParamType = ptInput
      end>
    ProviderName = 'dspUsuario'
    Left = 1752
    Top = 624
    object cdsUsuarioID_USUARIO: TFloatField
      FieldName = 'ID_USUARIO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      Visible = False
    end
    object cdsUsuarioUSUARIO: TStringField
      FieldName = 'USUARIO'
      Size = 30
    end
    object cdsUsuarioNOME: TStringField
      FieldName = 'NOME'
      Visible = False
      Size = 50
    end
    object cdsUsuarioID_PERMISSAO: TFloatField
      FieldName = 'ID_PERMISSAO'
      Visible = False
    end
    object cdsUsuarioSENHA: TStringField
      FieldName = 'SENHA'
      Visible = False
    end
  end
  object dspUsuario: TDataSetProvider
    DataSet = sqlUsuario
    Left = 1752
    Top = 568
  end
  object sqlUsuario: TSQLDataSet
    CommandText = 'select * from USUARIO where id_usuario like :id_usuario'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'id_usuario'
        ParamType = ptInput
      end>
    SQLConnection = SQLConnection1
    Left = 1752
    Top = 520
  end
  object dsPermissao: TDataSource
    DataSet = cdsPermissao
    Left = 1584
    Top = 432
  end
  object cdsPermissao: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    ProviderName = 'dspPermissao'
    Left = 1584
    Top = 376
    object cdsPermissaoID_PERMISSAO: TFloatField
      FieldName = 'ID_PERMISSAO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      Visible = False
    end
    object cdsPermissaoNOME_PERMISSAO: TStringField
      DisplayLabel = 'Permiss'#227'o'
      FieldName = 'NOME_PERMISSAO'
      Size = 50
    end
  end
  object dspPermissao: TDataSetProvider
    DataSet = SQLPermissao
    Left = 1584
    Top = 320
  end
  object SQLPermissao: TSQLDataSet
    CommandText = 'select permissao.*  from '#13#10'permissao order by id_permissao'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = SQLConnection1
    Left = 1584
    Top = 272
  end
  object dsModuloAcesso: TDataSource
    DataSet = cdsModuloAcesso
    Left = 1472
    Top = 432
  end
  object cdsModuloAcesso: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftFloat
        Name = 'id_permissao'
        ParamType = ptInput
      end>
    ProviderName = 'dspModuloAcesso'
    Left = 1472
    Top = 376
    object cdsModuloAcessoID_PERMISSAO: TFloatField
      FieldName = 'ID_PERMISSAO'
    end
    object cdsModuloAcessoID_PERMISSAO_ACESSO: TFloatField
      FieldName = 'ID_PERMISSAO_ACESSO'
    end
    object cdsModuloAcessoDESCRICAO_ACESSO: TStringField
      FieldName = 'DESCRICAO_ACESSO'
      Size = 50
    end
    object cdsModuloAcessoACESSO: TStringField
      FieldName = 'ACESSO'
      Size = 1
    end
    object cdsModuloAcessoINCLUSAO: TStringField
      FieldName = 'INCLUSAO'
      Size = 1
    end
    object cdsModuloAcessoEXCLUSAO: TStringField
      FieldName = 'EXCLUSAO'
      Size = 1
    end
    object cdsModuloAcessoEDICAO: TStringField
      FieldName = 'EDICAO'
      Size = 1
    end
  end
  object dspModuloAcesso: TDataSetProvider
    DataSet = SQLModuloAcesso
    Left = 1472
    Top = 320
  end
  object SQLModuloAcesso: TSQLDataSet
    CommandText = 
      'select * from permissao_acesso where id_permissao = :id_permissa' +
      'o'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftFloat
        Name = 'id_permissao'
        ParamType = ptInput
      end>
    SQLConnection = SQLConnection1
    Left = 1472
    Top = 272
  end
  object cdsVirtModuloAceso: TClientDataSet
    Active = True
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'Descricao'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'Acesso'
        DataType = ftBoolean
      end
      item
        Name = 'Edicao'
        DataType = ftBoolean
      end
      item
        Name = 'Inclusao'
        DataType = ftBoolean
      end
      item
        Name = 'Exclusao'
        DataType = ftBoolean
      end
      item
        Name = 'id_permissao'
        DataType = ftInteger
      end
      item
        Name = 'id_permissao_Acesso'
        DataType = ftInteger
      end>
    IndexDefs = <>
    Params = <>
    StoreDefs = True
    Left = 1976
    Top = 16
    Data = {
      A90000009619E0BD010000001800000007000000000003000000A90009446573
      63726963616F0100490000000100055749445448020002003200064163657373
      6F02000300000000000645646963616F020003000000000008496E636C757361
      6F0200030000000000084578636C7573616F02000300000000000C69645F7065
      726D697373616F04000100000000001369645F7065726D697373616F5F416365
      73736F04000100000000000000}
    object cdsVirtModuloAcesoDescricao: TStringField
      DisplayLabel = 'Descri'#231#227'o'
      DisplayWidth = 80
      FieldName = 'Descricao'
      Size = 50
    end
    object cdsVirtModuloAcesoAcesso: TBooleanField
      FieldName = 'Acesso'
    end
    object cdsVirtModuloAcesoEdicao: TBooleanField
      DisplayLabel = 'Edi'#231#227'o'
      FieldName = 'Edicao'
    end
    object cdsVirtModuloAcesoInclusao: TBooleanField
      DisplayLabel = 'Inclus'#227'o'
      FieldName = 'Inclusao'
    end
    object cdsVirtModuloAcesoExclusao: TBooleanField
      DisplayLabel = 'Exclus'#227'o'
      FieldName = 'Exclusao'
    end
    object cdsVirtModuloAcesoid_permissao: TIntegerField
      FieldName = 'id_permissao'
      Visible = False
    end
    object cdsVirtModuloAcesoid_permissao_acesso: TIntegerField
      FieldName = 'id_permissao_acesso'
      Visible = False
    end
  end
  object dsVirtModuloAceso: TDataSource
    DataSet = cdsVirtModuloAceso
    Left = 1976
    Top = 80
  end
  object dsUsuarioConsulta: TDataSource
    DataSet = cdsUsuarioConsulta
    Left = 1824
    Top = 688
  end
  object cdsUsuarioConsulta: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'id_permissao'
        ParamType = ptInput
      end>
    ProviderName = 'dspUsuarioConsulta'
    Left = 1824
    Top = 632
    object cdsUsuarioConsultaID_USUARIO: TFloatField
      FieldName = 'ID_USUARIO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      Visible = False
    end
    object cdsUsuarioConsultaUSUARIO: TStringField
      DisplayLabel = 'Usu'#225'rio'
      DisplayWidth = 50
      FieldName = 'USUARIO'
      Size = 30
    end
    object cdsUsuarioConsultaNOME: TStringField
      FieldName = 'NOME'
      Visible = False
      Size = 50
    end
    object cdsUsuarioConsultaID_PERMISSAO: TFloatField
      FieldName = 'ID_PERMISSAO'
      Visible = False
    end
    object cdsUsuarioConsultaSENHA: TStringField
      FieldName = 'SENHA'
      Visible = False
    end
  end
  object dspUsuarioConsulta: TDataSetProvider
    DataSet = SQLUsuarioConsulta
    Left = 1824
    Top = 576
  end
  object SQLUsuarioConsulta: TSQLDataSet
    CommandText = 'select * from USUARIO where id_permissao = :id_permissao'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'id_permissao'
        ParamType = ptInput
      end>
    SQLConnection = SQLConnection1
    Left = 1824
    Top = 528
  end
  object cdsHistoricoP: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'id_os'
        ParamType = ptInput
      end>
    ProviderName = 'dspHistoricoP'
    Left = 1872
    Top = 384
    object FloatField1: TFloatField
      FieldName = 'ID_OS'
      Visible = False
    end
    object BlobField1: TBlobField
      FieldName = 'HISTORICO'
      Visible = False
      Size = 1
    end
    object StringField1: TStringField
      DisplayLabel = 'Status'
      DisplayWidth = 24
      FieldName = 'TIPO'
    end
    object DateField1: TDateField
      DisplayLabel = 'Data'
      DisplayWidth = 27
      FieldName = 'DATA'
    end
  end
  object dspHistoricoP: TDataSetProvider
    DataSet = SQLHistoricoP
    Left = 1872
    Top = 328
  end
  object SQLHistoricoP: TSQLDataSet
    CommandText = 'select * from os_historico where id_os = :id_os'
    MaxBlobSize = 1
    Params = <
      item
        DataType = ftInteger
        Name = 'id_os'
        ParamType = ptInput
      end>
    SQLConnection = SQLConnection1
    Left = 1872
    Top = 280
  end
  object dsHistoricoP: TDataSource
    AutoEdit = False
    DataSet = cdsHistoricoP
    Left = 1864
    Top = 432
  end
  object SQLBuscaPermissao: TSQLDataSet
    CommandText = 
      'select * from permissao_acesso where id_permissao = :id_permissa' +
      'o and id_permissao_acesso = :id_permissao_acesso'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftFloat
        Name = 'id_permissao'
        ParamType = ptInput
      end
      item
        DataType = ftSmallint
        Name = 'id_permissao_acesso'
        ParamType = ptInput
      end>
    SQLConnection = SQLConnection1
    Left = 176
    Top = 8
  end
  object dspBuscaPermissao: TDataSetProvider
    DataSet = SQLBuscaPermissao
    Left = 176
    Top = 56
  end
  object cdsBuscaPermissao: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftFloat
        Name = 'id_permissao'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'id_permissao_acesso'
        ParamType = ptInput
      end>
    ProviderName = 'dspBuscaPermissao'
    Left = 176
    Top = 112
    object cdsBuscaPermissaoID_PERMISSAO: TFloatField
      FieldName = 'ID_PERMISSAO'
    end
    object cdsBuscaPermissaoDESCRICAO_ACESSO: TStringField
      FieldName = 'DESCRICAO_ACESSO'
      Size = 50
    end
    object cdsBuscaPermissaoACESSO: TStringField
      FieldName = 'ACESSO'
      Size = 1
    end
    object cdsBuscaPermissaoINCLUSAO: TStringField
      FieldName = 'INCLUSAO'
      Size = 1
    end
    object cdsBuscaPermissaoEXCLUSAO: TStringField
      FieldName = 'EXCLUSAO'
      Size = 1
    end
    object cdsBuscaPermissaoEDICAO: TStringField
      FieldName = 'EDICAO'
      Size = 1
    end
    object cdsBuscaPermissaoID_PERMISSAO_ACESSO: TSmallintField
      FieldName = 'ID_PERMISSAO_ACESSO'
    end
  end
  object dsCadastroAtividadeP: TDataSource
    DataSet = CDSCadastroAtividadeP
    Left = 560
    Top = 392
  end
  object CDSCadastroAtividadeP: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'id_atividade'
        ParamType = ptInput
      end>
    ProviderName = 'dspCadastroAtividadeP'
    Left = 560
    Top = 336
    object CDSCadastroAtividadePID_ATIVIDADE: TIntegerField
      FieldName = 'ID_ATIVIDADE'
      Required = True
    end
    object CDSCadastroAtividadePNOME: TStringField
      FieldName = 'NOME'
      Size = 100
    end
  end
  object dspCadastroAtividadeP: TDataSetProvider
    DataSet = sqlCadastroAtividadeP
    Left = 560
    Top = 280
  end
  object sqlCadastroAtividadeP: TSQLDataSet
    CommandText = 'select * from atividade where id_atividade = :id_atividade'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'id_atividade'
        ParamType = ptInput
      end>
    SQLConnection = SQLConnection1
    Left = 560
    Top = 232
  end
  object dspBuscaUsuario: TDataSetProvider
    DataSet = SQLBuscaUsuario
    Left = 288
    Top = 64
  end
  object SQLBuscaUsuario: TSQLDataSet
    CommandText = 'select * from usuario where usuario = :usuario'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftString
        Name = 'usuario'
        ParamType = ptInput
      end>
    SQLConnection = SQLConnection1
    Left = 288
    Top = 16
  end
  object cdsBuscaUsuario: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftString
        Name = 'usuario'
        ParamType = ptInput
      end>
    ProviderName = 'dspBuscaUsuario'
    Left = 288
    Top = 120
    object cdsBuscaUsuarioID_USUARIO: TFloatField
      FieldName = 'ID_USUARIO'
      Required = True
    end
    object cdsBuscaUsuarioUSUARIO: TStringField
      FieldName = 'USUARIO'
      Size = 30
    end
    object cdsBuscaUsuarioNOME: TStringField
      FieldName = 'NOME'
      Size = 50
    end
    object cdsBuscaUsuarioID_PERMISSAO: TFloatField
      FieldName = 'ID_PERMISSAO'
    end
    object cdsBuscaUsuarioSENHA: TStringField
      FieldName = 'SENHA'
    end
  end
  object dsBuscaTratamentoP: TDataSource
    DataSet = cdsBuscaTratamentoP
    Left = 176
    Top = 392
  end
  object cdsBuscaTratamentoP: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'id_area'
        ParamType = ptInput
      end>
    ProviderName = 'dspBuscaTratamentoP'
    Left = 176
    Top = 336
    object cdsBuscaTratamentoPID_TRATAMENTO: TFloatField
      FieldName = 'ID_TRATAMENTO'
      Required = True
      Visible = False
    end
    object cdsBuscaTratamentoPID_ATIVIDADE: TFloatField
      FieldName = 'ID_ATIVIDADE'
      Visible = False
    end
    object cdsBuscaTratamentoPVIRT_NOMEATIVIDADE: TStringField
      DisplayLabel = 'Atividade'
      DisplayWidth = 50
      FieldName = 'VIRT_NOMEATIVIDADE'
      Size = 100
    end
    object cdsBuscaTratamentoPNOME: TStringField
      DisplayLabel = 'Servi'#231'o'
      FieldName = 'NOME'
      Size = 50
    end
    object cdsBuscaTratamentoPPERIODICIDADE: TIntegerField
      DisplayLabel = 'Periodicidade'
      FieldName = 'PERIODICIDADE'
    end
  end
  object dspBuscaTratamentoP: TDataSetProvider
    DataSet = sqlBuscaTratamentoP
    Left = 176
    Top = 280
  end
  object sqlBuscaTratamentoP: TSQLDataSet
    CommandText = 
      'select '#13#10' tratamento.*,'#13#10' atividade.nome as Virt_NomeAtividade '#13 +
      #10' from '#13#10' TRATAMENTO'#13#10' left outer join atividade on tratamento.i' +
      'd_atividade = atividade.id_atividade'#13#10' where '#13#10' tratamento.id_at' +
      'ividade = :id_atividade'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'id_area'
        ParamType = ptInput
      end>
    SQLConnection = SQLConnection1
    Left = 176
    Top = 232
  end
  object dsCadastroTratamentoV: TDataSource
    DataSet = cdsCadastroTratamentoV
    Left = 1104
    Top = 936
  end
  object cdsCadastroTratamentoV: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <
      item
        DataType = ftString
        Name = 'id_area'
        ParamType = ptInput
      end>
    ProviderName = 'dspCadastroTratamentoV'
    Left = 1104
    Top = 880
    object cdsCadastroTratamentoVID_TRATAMENTO: TFloatField
      FieldName = 'ID_TRATAMENTO'
      Required = True
      Visible = False
    end
    object cdsCadastroTratamentoVVIRT_NOMEATIVIDADE: TStringField
      DisplayLabel = 'Atividade'
      FieldName = 'VIRT_NOMEATIVIDADE'
      Size = 100
    end
    object cdsCadastroTratamentoVID_ATIVIDADE: TFloatField
      FieldName = 'ID_ATIVIDADE'
      Visible = False
    end
    object cdsCadastroTratamentoVNOME: TStringField
      DisplayLabel = 'Servi'#231'o'
      FieldName = 'NOME'
      Size = 50
    end
    object cdsCadastroTratamentoVPERIODICIDADE: TIntegerField
      DisplayLabel = 'Periodicidade'
      FieldName = 'PERIODICIDADE'
    end
  end
  object dspCadastroTratamentoV: TDataSetProvider
    DataSet = sqlCadastroTratamentoV
    Left = 1104
    Top = 824
  end
  object sqlCadastroTratamentoV: TSQLDataSet
    CommandText = 
      'select '#13#10' tratamento.*,'#13#10' atividade.nome as Virt_NomeAtividade '#13 +
      #10' from '#13#10' TRATAMENTO'#13#10' left outer join atividade on tratamento.i' +
      'd_atividade = atividade.id_atividade'#13#10' where '#13#10' tratamento.id_at' +
      'ividade like :id_atividade'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftString
        Name = 'id_area'
        ParamType = ptInput
      end>
    SQLConnection = SQLConnection1
    Left = 1104
    Top = 776
  end
  object dsRelatorioStatus: TDataSource
    DataSet = cdsRelatorioStatus
    Left = 400
    Top = 168
  end
  object cdsRelatorioStatus: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <
      item
        DataType = ftString
        Name = 'datareferencia'
        ParamType = ptInput
      end>
    ProviderName = 'dspRelatorioStatus'
    Left = 392
    Top = 120
    object cdsRelatorioStatusDATA_CRIACAO: TDateField
      FieldName = 'DATA_CRIACAO'
    end
    object cdsRelatorioStatusNOMETIPOOS: TStringField
      FieldName = 'NOMETIPOOS'
      Size = 50
    end
    object cdsRelatorioStatusNOMESOLICITANTE: TStringField
      FieldName = 'NOMESOLICITANTE'
      Size = 50
    end
    object cdsRelatorioStatusNOMEAREA: TStringField
      FieldName = 'NOMEAREA'
      Size = 50
    end
    object cdsRelatorioStatusNOMESUBAREA: TStringField
      FieldName = 'NOMESUBAREA'
      Size = 50
    end
    object cdsRelatorioStatusNOMECANTEIRO: TStringField
      FieldName = 'NOMECANTEIRO'
      Size = 50
    end
    object cdsRelatorioStatusNOMELOCALIZACAO: TStringField
      FieldName = 'NOMELOCALIZACAO'
      Size = 50
    end
    object cdsRelatorioStatusDATA_INICIO: TDateField
      FieldName = 'DATA_INICIO'
    end
    object cdsRelatorioStatusID_ORDEM_SERVICO_ACOMPANHAMENTO: TFloatField
      FieldName = 'ID_ORDEM_SERVICO_ACOMPANHAMENTO'
      Required = True
    end
    object cdsRelatorioStatusID_OS: TFloatField
      FieldName = 'ID_OS'
    end
    object cdsRelatorioStatusStringField01: TStringField
      FieldName = '01'
      Size = 3
    end
    object cdsRelatorioStatusStringField02: TStringField
      FieldName = '02'
      Size = 3
    end
    object cdsRelatorioStatusStringField03: TStringField
      FieldName = '03'
      Size = 3
    end
    object cdsRelatorioStatusStringField04: TStringField
      FieldName = '04'
      Size = 3
    end
    object cdsRelatorioStatusStringField05: TStringField
      FieldName = '05'
      Size = 3
    end
    object cdsRelatorioStatusStringField06: TStringField
      FieldName = '06'
      Size = 3
    end
    object cdsRelatorioStatusStringField07: TStringField
      FieldName = '07'
      Size = 3
    end
    object cdsRelatorioStatusStringField08: TStringField
      FieldName = '08'
      Size = 3
    end
    object cdsRelatorioStatusStringField09: TStringField
      FieldName = '09'
      Size = 3
    end
    object cdsRelatorioStatusStringField10: TStringField
      FieldName = '10'
      Size = 3
    end
    object cdsRelatorioStatusStringField11: TStringField
      FieldName = '11'
      Size = 3
    end
    object cdsRelatorioStatusStringField12: TStringField
      FieldName = '12'
      Size = 3
    end
    object cdsRelatorioStatusStringField13: TStringField
      FieldName = '13'
      Size = 3
    end
    object cdsRelatorioStatusStringField14: TStringField
      FieldName = '14'
      Size = 3
    end
    object cdsRelatorioStatusStringField15: TStringField
      FieldName = '15'
      Size = 3
    end
    object cdsRelatorioStatusStringField16: TStringField
      FieldName = '16'
      Size = 3
    end
    object cdsRelatorioStatusStringField17: TStringField
      FieldName = '17'
      Size = 3
    end
    object cdsRelatorioStatusStringField18: TStringField
      FieldName = '18'
      Size = 3
    end
    object cdsRelatorioStatusStringField19: TStringField
      FieldName = '19'
      Size = 3
    end
    object cdsRelatorioStatusStringField20: TStringField
      FieldName = '20'
      Size = 3
    end
    object cdsRelatorioStatusStringField21: TStringField
      FieldName = '21'
      Size = 3
    end
    object cdsRelatorioStatusStringField22: TStringField
      FieldName = '22'
      Size = 3
    end
    object cdsRelatorioStatusStringField23: TStringField
      FieldName = '23'
      Size = 3
    end
    object cdsRelatorioStatusStringField24: TStringField
      FieldName = '24'
      Size = 3
    end
    object cdsRelatorioStatusStringField25: TStringField
      FieldName = '25'
      Size = 3
    end
    object cdsRelatorioStatusStringField26: TStringField
      FieldName = '26'
      Size = 3
    end
    object cdsRelatorioStatusStringField27: TStringField
      FieldName = '27'
      Size = 3
    end
    object cdsRelatorioStatusStringField28: TStringField
      FieldName = '28'
      Size = 3
    end
    object cdsRelatorioStatusStringField29: TStringField
      FieldName = '29'
      Size = 3
    end
    object cdsRelatorioStatusStringField30: TStringField
      FieldName = '30'
      Size = 3
    end
    object cdsRelatorioStatusStringField31: TStringField
      FieldName = '31'
      Size = 3
    end
    object cdsRelatorioStatusDATA_REFERENCIA: TDateField
      FieldName = 'DATA_REFERENCIA'
    end
    object cdsRelatorioStatusDATA_FIM: TDateField
      FieldName = 'DATA_FIM'
    end
    object cdsRelatorioStatusDURACAO: TIntegerField
      FieldName = 'DURACAO'
    end
  end
  object dspRelatorioStatus: TDataSetProvider
    DataSet = sqlRelatorioStatus
    Left = 392
    Top = 64
  end
  object sqlRelatorioStatus: TSQLDataSet
    CommandText = 
      'select'#13#10'ordem_servico.data_criacao,'#13#10'tipo_os.nome as NomeTipoOS,' +
      #13#10'solicitante.nome_solicitante as NomeSolicitante,'#13#10'areas.nome a' +
      's NomeArea,'#13#10'subareas.nome as NomeSubArea,'#13#10'canteiro.nome_cantei' +
      'ro_popular as NomeCanteiro,'#13#10'localizacao.nome_localizacao as Nom' +
      'eLocalizacao,'#13#10'ordem_servico.data_inicio,'#13#10'ordem_servico.data_fi' +
      'm,'#13#10'ordem_servico.duracao,'#13#10'ordem_servico_acompanhamento.*'#13#10#13#10' f' +
      'rom ordem_servico_acompanhamento'#13#10' left outer join ordem_servico' +
      ' on ordem_servico_acompanhamento.id_os = ordem_servico.id_os'#13#10' l' +
      'eft outer join tipo_os on ordem_servico.id_tipo_os = tipo_os.id_' +
      'tipo_os'#13#10' left outer join solicitante on ordem_servico.id_solici' +
      'tante = solicitante.id_solicitante'#13#10' left outer join areas on or' +
      'dem_servico.id_area = areas.id_area'#13#10' left outer join subareas o' +
      'n ordem_servico.id_subarea = subareas.id_subarea'#13#10' left outer jo' +
      'in canteiro on ordem_servico.id_canteiro = canteiro.id_canteiro'#13 +
      #10' left outer join localizacao on ordem_servico.id_localizacao = ' +
      'localizacao.id_localizacao'#13#10#13#10#13#10'where '#13#10'ordem_servico_acompanham' +
      'ento.data_referencia >= :datareferencia'#13#10' order by '#13#10'ordem_servi' +
      'co_acompanhamento.id_os'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftString
        Name = 'datareferencia'
        ParamType = ptInput
      end>
    SQLConnection = SQLConnection1
    Left = 392
    Top = 16
  end
  object dsVirtRelatorioStatus: TDataSource
    DataSet = cdsVirtRelatorioStatus
    Left = 504
    Top = 64
  end
  object cdsVirtRelatorioStatus: TClientDataSet
    Active = True
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'DATA_CRIACAO'
        DataType = ftDate
      end
      item
        Name = 'NOMETIPOOS'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'NOMESOLICITANTE'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'NOMEAREA'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'NOMESUBAREA'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'NOMECANTEIRO'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'NOMELOCALIZACAO'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'DATA_INICIO'
        DataType = ftDate
      end
      item
        Name = 'ID_ORDEM_SERVICO_ACOMPANHAMENTO'
        Attributes = [faRequired]
        DataType = ftFloat
      end
      item
        Name = 'ID_OS'
        DataType = ftFloat
      end
      item
        Name = '01'
        DataType = ftString
        Size = 3
      end
      item
        Name = '02'
        DataType = ftString
        Size = 3
      end
      item
        Name = '03'
        DataType = ftString
        Size = 3
      end
      item
        Name = '04'
        DataType = ftString
        Size = 3
      end
      item
        Name = '05'
        DataType = ftString
        Size = 3
      end
      item
        Name = '06'
        DataType = ftString
        Size = 3
      end
      item
        Name = '07'
        DataType = ftString
        Size = 3
      end
      item
        Name = '08'
        DataType = ftString
        Size = 3
      end
      item
        Name = '09'
        DataType = ftString
        Size = 3
      end
      item
        Name = '10'
        DataType = ftString
        Size = 3
      end
      item
        Name = '11'
        DataType = ftString
        Size = 3
      end
      item
        Name = '12'
        DataType = ftString
        Size = 3
      end
      item
        Name = '13'
        DataType = ftString
        Size = 3
      end
      item
        Name = '14'
        DataType = ftString
        Size = 3
      end
      item
        Name = '15'
        DataType = ftString
        Size = 3
      end
      item
        Name = '16'
        DataType = ftString
        Size = 3
      end
      item
        Name = '17'
        DataType = ftString
        Size = 3
      end
      item
        Name = '18'
        DataType = ftString
        Size = 3
      end
      item
        Name = '19'
        DataType = ftString
        Size = 3
      end
      item
        Name = '20'
        DataType = ftString
        Size = 3
      end
      item
        Name = '21'
        DataType = ftString
        Size = 3
      end
      item
        Name = '22'
        DataType = ftString
        Size = 3
      end
      item
        Name = '23'
        DataType = ftString
        Size = 3
      end
      item
        Name = '24'
        DataType = ftString
        Size = 3
      end
      item
        Name = '25'
        DataType = ftString
        Size = 3
      end
      item
        Name = '26'
        DataType = ftString
        Size = 3
      end
      item
        Name = '27'
        DataType = ftString
        Size = 3
      end
      item
        Name = '28'
        DataType = ftString
        Size = 3
      end
      item
        Name = '29'
        DataType = ftString
        Size = 3
      end
      item
        Name = '30'
        DataType = ftString
        Size = 3
      end
      item
        Name = '31'
        DataType = ftString
        Size = 3
      end
      item
        Name = 'DATA_REFERENCIA'
        DataType = ftDate
      end
      item
        Name = 'Status'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'data_inicio_realizado'
        DataType = ftDate
      end
      item
        Name = 'data_fim'
        DataType = ftDate
      end
      item
        Name = 'duracao'
        DataType = ftInteger
      end
      item
        Name = 'execucao_NAO'
        DataType = ftString
        Size = 20
      end>
    IndexDefs = <>
    Params = <>
    StoreDefs = True
    Left = 504
    Top = 8
    Data = {
      9A0400009619E0BD01000000180000002F0000000000030000009A040C444154
      415F4352494143414F04000600000000000A4E4F4D455449504F4F5301004900
      000001000557494454480200020032000F4E4F4D45534F4C49434954414E5445
      0100490000000100055749445448020002003200084E4F4D4541524541010049
      00000001000557494454480200020032000B4E4F4D4553554241524541010049
      00000001000557494454480200020032000C4E4F4D4543414E544549524F0100
      4900000001000557494454480200020032000F4E4F4D454C4F43414C495A4143
      414F01004900000001000557494454480200020032000B444154415F494E4943
      494F04000600000000001F49445F4F5244454D5F5345525649434F5F41434F4D
      50414E48414D454E544F08000400040000000549445F4F530800040000000000
      0230310100490000000100055749445448020002000300023032010049000000
      0100055749445448020002000300023033010049000000010005574944544802
      0002000300023034010049000000010005574944544802000200030002303501
      0049000000010005574944544802000200030002303601004900000001000557
      4944544802000200030002303701004900000001000557494454480200020003
      0002303801004900000001000557494454480200020003000230390100490000
      0001000557494454480200020003000231300100490000000100055749445448
      0200020003000231310100490000000100055749445448020002000300023132
      0100490000000100055749445448020002000300023133010049000000010005
      5749445448020002000300023134010049000000010005574944544802000200
      0300023135010049000000010005574944544802000200030002313601004900
      0000010005574944544802000200030002313701004900000001000557494454
      4802000200030002313801004900000001000557494454480200020003000231
      3901004900000001000557494454480200020003000232300100490000000100
      0557494454480200020003000232310100490000000100055749445448020002
      0003000232320100490000000100055749445448020002000300023233010049
      0000000100055749445448020002000300023234010049000000010005574944
      5448020002000300023235010049000000010005574944544802000200030002
      3236010049000000010005574944544802000200030002323701004900000001
      0005574944544802000200030002323801004900000001000557494454480200
      0200030002323901004900000001000557494454480200020003000233300100
      4900000001000557494454480200020003000233310100490000000100055749
      4454480200020003000F444154415F5245464552454E43494104000600000000
      0006537461747573010049000000010005574944544802000200320015646174
      615F696E6963696F5F7265616C697A61646F040006000000000008646174615F
      66696D0400060000000000076475726163616F04000100000000000C65786563
      7563616F5F4E414F01004900000001000557494454480200020014000000}
    object cdsVirtRelatorioStatusStatus: TStringField
      DisplayWidth = 30
      FieldName = 'Status'
      Size = 50
    end
    object cdsVirtRelatorioStatusID_OS: TFloatField
      DisplayLabel = 'N'#186
      DisplayWidth = 7
      FieldName = 'ID_OS'
    end
    object cdsVirtRelatorioStatusDATA_CRIACAO: TDateField
      DisplayLabel = 'Input'
      FieldName = 'DATA_CRIACAO'
    end
    object cdsVirtRelatorioStatusNOMETIPOOS: TStringField
      DisplayLabel = 'Tipo OS'
      DisplayWidth = 30
      FieldName = 'NOMETIPOOS'
      Size = 50
    end
    object cdsVirtRelatorioStatusNOMESOLICITANTE: TStringField
      DisplayLabel = 'Solicitante'
      DisplayWidth = 30
      FieldName = 'NOMESOLICITANTE'
      Size = 50
    end
    object cdsVirtRelatorioStatusNOMEAREA: TStringField
      DisplayLabel = #193'rea'
      DisplayWidth = 40
      FieldName = 'NOMEAREA'
      Size = 50
    end
    object cdsVirtRelatorioStatusNOMESUBAREA: TStringField
      DisplayLabel = 'Sub-'#193'rea'
      DisplayWidth = 30
      FieldName = 'NOMESUBAREA'
      Size = 50
    end
    object cdsVirtRelatorioStatusNOMECANTEIRO: TStringField
      DisplayLabel = 'Canteiro'
      DisplayWidth = 30
      FieldName = 'NOMECANTEIRO'
      Size = 50
    end
    object cdsVirtRelatorioStatusNOMELOCALIZACAO: TStringField
      DisplayLabel = 'Localiza'#231#227'o'
      DisplayWidth = 30
      FieldName = 'NOMELOCALIZACAO'
      Size = 50
    end
    object cdsVirtRelatorioStatusDATA_INICIO: TDateField
      DisplayLabel = 'Data In'#237'cio (Prevista)'
      FieldName = 'DATA_INICIO'
    end
    object cdsVirtRelatorioStatusID_ORDEM_SERVICO_ACOMPANHAMENTO: TFloatField
      FieldName = 'ID_ORDEM_SERVICO_ACOMPANHAMENTO'
      Required = True
      Visible = False
    end
    object cdsVirtRelatorioStatusStringField01: TStringField
      FieldName = '01'
      Visible = False
      Size = 3
    end
    object cdsVirtRelatorioStatusStringField02: TStringField
      FieldName = '02'
      Visible = False
      Size = 3
    end
    object cdsVirtRelatorioStatusStringField03: TStringField
      FieldName = '03'
      Visible = False
      Size = 3
    end
    object cdsVirtRelatorioStatusStringField04: TStringField
      FieldName = '04'
      Visible = False
      Size = 3
    end
    object cdsVirtRelatorioStatusStringField05: TStringField
      FieldName = '05'
      Visible = False
      Size = 3
    end
    object cdsVirtRelatorioStatusStringField06: TStringField
      FieldName = '06'
      Visible = False
      Size = 3
    end
    object cdsVirtRelatorioStatusStringField07: TStringField
      FieldName = '07'
      Visible = False
      Size = 3
    end
    object cdsVirtRelatorioStatusStringField08: TStringField
      FieldName = '08'
      Visible = False
      Size = 3
    end
    object cdsVirtRelatorioStatusStringField09: TStringField
      FieldName = '09'
      Visible = False
      Size = 3
    end
    object cdsVirtRelatorioStatusStringField10: TStringField
      FieldName = '10'
      Visible = False
      Size = 3
    end
    object cdsVirtRelatorioStatusStringField11: TStringField
      FieldName = '11'
      Visible = False
      Size = 3
    end
    object cdsVirtRelatorioStatusStringField12: TStringField
      FieldName = '12'
      Visible = False
      Size = 3
    end
    object cdsVirtRelatorioStatusStringField13: TStringField
      FieldName = '13'
      Visible = False
      Size = 3
    end
    object cdsVirtRelatorioStatusStringField14: TStringField
      FieldName = '14'
      Visible = False
      Size = 3
    end
    object cdsVirtRelatorioStatusStringField15: TStringField
      FieldName = '15'
      Visible = False
      Size = 3
    end
    object cdsVirtRelatorioStatusStringField16: TStringField
      FieldName = '16'
      Visible = False
      Size = 3
    end
    object cdsVirtRelatorioStatusStringField17: TStringField
      FieldName = '17'
      Visible = False
      Size = 3
    end
    object cdsVirtRelatorioStatusStringField18: TStringField
      FieldName = '18'
      Visible = False
      Size = 3
    end
    object cdsVirtRelatorioStatusStringField19: TStringField
      FieldName = '19'
      Visible = False
      Size = 3
    end
    object cdsVirtRelatorioStatusStringField20: TStringField
      FieldName = '20'
      Visible = False
      Size = 3
    end
    object cdsVirtRelatorioStatusStringField21: TStringField
      FieldName = '21'
      Visible = False
      Size = 3
    end
    object cdsVirtRelatorioStatusStringField22: TStringField
      FieldName = '22'
      Visible = False
      Size = 3
    end
    object cdsVirtRelatorioStatusStringField23: TStringField
      FieldName = '23'
      Visible = False
      Size = 3
    end
    object cdsVirtRelatorioStatusStringField24: TStringField
      FieldName = '24'
      Visible = False
      Size = 3
    end
    object cdsVirtRelatorioStatusStringField25: TStringField
      FieldName = '25'
      Visible = False
      Size = 3
    end
    object cdsVirtRelatorioStatusStringField26: TStringField
      FieldName = '26'
      Visible = False
      Size = 3
    end
    object cdsVirtRelatorioStatusStringField27: TStringField
      FieldName = '27'
      Visible = False
      Size = 3
    end
    object cdsVirtRelatorioStatusStringField28: TStringField
      FieldName = '28'
      Visible = False
      Size = 3
    end
    object cdsVirtRelatorioStatusStringField29: TStringField
      FieldName = '29'
      Visible = False
      Size = 3
    end
    object cdsVirtRelatorioStatusStringField30: TStringField
      FieldName = '30'
      Visible = False
      Size = 3
    end
    object cdsVirtRelatorioStatusStringField31: TStringField
      FieldName = '31'
      Visible = False
      Size = 3
    end
    object cdsVirtRelatorioStatusDATA_REFERENCIA: TDateField
      FieldName = 'DATA_REFERENCIA'
      Visible = False
    end
    object cdsVirtRelatorioStatusduracao: TIntegerField
      DisplayLabel = 'Dura'#231#227'o'
      FieldName = 'duracao'
    end
    object cdsVirtRelatorioStatusdata_inicio_realizado: TDateField
      DisplayLabel = 'Data In'#237'cio (Realizada)'
      FieldName = 'data_inicio_realizado'
    end
    object cdsVirtRelatorioStatusdata_fim: TDateField
      FieldName = 'data_fim'
      Visible = False
    end
    object cdsVirtRelatorioStatusexecucao_NAO: TStringField
      FieldName = 'execucao_NAO'
      Visible = False
    end
  end
  object cdsVAnterior: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <
      item
        DataType = ftFloat
        Name = 'id_os'
        ParamType = ptInput
      end>
    ProviderName = 'dspVAnterior'
    Left = 632
    Top = 120
    object cdsVAnteriorID_ORDEM_SERVICO_ACOMPANHAMENTO: TFloatField
      DisplayWidth = 42
      FieldName = 'ID_ORDEM_SERVICO_ACOMPANHAMENTO'
      Required = True
    end
    object cdsVAnteriorID_OS: TFloatField
      DisplayWidth = 12
      FieldName = 'ID_OS'
    end
    object cdsVAnteriorStringField01: TStringField
      DisplayWidth = 4
      FieldName = '01'
      Size = 3
    end
    object cdsVAnteriorStringField02: TStringField
      DisplayWidth = 4
      FieldName = '02'
      Size = 3
    end
    object cdsVAnteriorStringField03: TStringField
      DisplayWidth = 4
      FieldName = '03'
      Size = 3
    end
    object cdsVAnteriorStringField04: TStringField
      DisplayWidth = 4
      FieldName = '04'
      Size = 3
    end
    object cdsVAnteriorStringField05: TStringField
      DisplayWidth = 4
      FieldName = '05'
      Size = 3
    end
    object cdsVAnteriorStringField06: TStringField
      DisplayWidth = 4
      FieldName = '06'
      Size = 3
    end
    object cdsVAnteriorStringField07: TStringField
      DisplayWidth = 4
      FieldName = '07'
      Size = 3
    end
    object cdsVAnteriorStringField08: TStringField
      DisplayWidth = 4
      FieldName = '08'
      Size = 3
    end
    object cdsVAnteriorStringField09: TStringField
      DisplayWidth = 4
      FieldName = '09'
      Size = 3
    end
    object cdsVAnteriorStringField10: TStringField
      DisplayWidth = 4
      FieldName = '10'
      Size = 3
    end
    object cdsVAnteriorStringField11: TStringField
      DisplayWidth = 21
      FieldName = '11'
      Size = 3
    end
    object cdsVAnteriorStringField12: TStringField
      DisplayWidth = 4
      FieldName = '12'
      Size = 3
    end
    object cdsVAnteriorStringField13: TStringField
      DisplayWidth = 4
      FieldName = '13'
      Size = 3
    end
    object cdsVAnteriorStringField14: TStringField
      DisplayWidth = 4
      FieldName = '14'
      Size = 3
    end
    object cdsVAnteriorStringField15: TStringField
      DisplayWidth = 4
      FieldName = '15'
      Size = 3
    end
    object cdsVAnteriorStringField16: TStringField
      DisplayWidth = 4
      FieldName = '16'
      Size = 3
    end
    object cdsVAnteriorStringField17: TStringField
      DisplayWidth = 4
      FieldName = '17'
      Size = 3
    end
    object cdsVAnteriorStringField18: TStringField
      DisplayWidth = 4
      FieldName = '18'
      Size = 3
    end
    object cdsVAnteriorStringField19: TStringField
      DisplayWidth = 4
      FieldName = '19'
      Size = 3
    end
    object cdsVAnteriorStringField20: TStringField
      DisplayWidth = 4
      FieldName = '20'
      Size = 3
    end
    object cdsVAnteriorStringField21: TStringField
      DisplayWidth = 4
      FieldName = '21'
      Size = 3
    end
    object cdsVAnteriorStringField22: TStringField
      DisplayWidth = 4
      FieldName = '22'
      Size = 3
    end
    object cdsVAnteriorStringField23: TStringField
      DisplayWidth = 4
      FieldName = '23'
      Size = 3
    end
    object cdsVAnteriorStringField24: TStringField
      DisplayWidth = 4
      FieldName = '24'
      Size = 3
    end
    object cdsVAnteriorStringField25: TStringField
      DisplayWidth = 4
      FieldName = '25'
      Size = 3
    end
    object cdsVAnteriorStringField26: TStringField
      DisplayWidth = 4
      FieldName = '26'
      Size = 3
    end
    object cdsVAnteriorStringField27: TStringField
      DisplayWidth = 4
      FieldName = '27'
      Size = 3
    end
    object cdsVAnteriorStringField28: TStringField
      DisplayWidth = 4
      FieldName = '28'
      Size = 3
    end
    object cdsVAnteriorStringField29: TStringField
      DisplayWidth = 4
      FieldName = '29'
      Size = 3
    end
    object cdsVAnteriorStringField30: TStringField
      DisplayWidth = 4
      FieldName = '30'
      Size = 3
    end
    object cdsVAnteriorStringField31: TStringField
      DisplayWidth = 4
      FieldName = '31'
      Size = 3
    end
    object cdsVAnteriorDATA_REFERENCIA: TDateField
      DisplayWidth = 19
      FieldName = 'DATA_REFERENCIA'
    end
  end
  object dspVAnterior: TDataSetProvider
    DataSet = sqlVAnterior
    Left = 632
    Top = 64
  end
  object sqlVAnterior: TSQLDataSet
    CommandText = 
      'select * from ordem_servico_acompanhamento where id_os = :id_os'#13 +
      #10' order by data_referencia'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftFloat
        Name = 'id_os'
        ParamType = ptInput
      end>
    SQLConnection = SQLConnection1
    Left = 632
    Top = 16
  end
  object dsVAnterior: TDataSource
    DataSet = cdsVAnterior
    Left = 632
    Top = 176
  end
  object SQLOS: TSQLDataSet
    CommandText = 
      'SELECT'#13#10'ORDEM_SERVICO.*,'#13#10'TIPO_OS.NOME,'#13#10'TIPO_SOLICITANTE.NOME_T' +
      'IPO_SOLICITANTE,'#13#10'SOLICITANTE.NOME_SOLICITANTE,'#13#10'AREAS.NOME,'#13#10'SU' +
      'BAREAS.NOME,'#13#10'LOCALIZACAO.NOME_LOCALIZACAO,'#13#10'CANTEIRO.NOME_CANTE' +
      'IRO_POPULAR,'#13#10'TRATAMENTO.NOME,'#13#10'FUNCIONARIO.NOME_FUNCIONARIO'#13#10'FR' +
      'OM'#13#10'ORDEM_SERVICO,'#13#10'TIPO_OS,'#13#10'TIPO_SOLICITANTE,'#13#10'SOLICITANTE,'#13#10'A' +
      'REAS,'#13#10'SUBAREAS,'#13#10'LOCALIZACAO,'#13#10'CANTEIRO,'#13#10'TRATAMENTO,'#13#10'FUNCIONA' +
      'RIO'#13#10'WHERE'#13#10'ORDEM_SERVICO.ID_TIPO_OS = TIPO_OS.ID_TIPO_OS AND'#13#10'O' +
      'RDEM_SERVICO.ID_TIPO_SOLICITANTE = TIPO_SOLICITANTE.ID_TIPO_SOLI' +
      'CITANTE AND'#13#10'ORDEM_SERVICO.ID_SOLICITANTE = SOLICITANTE.ID_SOLIC' +
      'ITANTE AND'#13#10'ORDEM_SERVICO.ID_AREA = AREAS.ID_AREA AND'#13#10'ORDEM_SER' +
      'VICO.ID_SUBAREA = SUBAREAS.ID_SUBAREA AND'#13#10'ORDEM_SERVICO.ID_LOCA' +
      'LIZACAO = LOCALIZACAO.ID_LOCALIZACAO AND'#13#10'ORDEM_SERVICO.ID_CANTE' +
      'IRO = CANTEIRO.ID_CANTEIRO AND'#13#10'ORDEM_SERVICO.ID_TRATAMENTO = TR' +
      'ATAMENTO.ID_TRATAMENTO AND'#13#10'ORDEM_SERVICO.ID_FUNCIONARIO = FUNCI' +
      'ONARIO.ID_FUNCIONARIO'#13#10'ORDER BY ORDEM_SERVICO.ID_OS'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = SQLConnection1
    Left = 1880
    Top = 784
  end
  object cdsOS: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    ProviderName = 'dspOS'
    Left = 2064
    Top = 784
    object cdsOSID_OS: TFloatField
      FieldName = 'ID_OS'
      Required = True
    end
    object cdsOSID_TIPO_OS: TFloatField
      FieldName = 'ID_TIPO_OS'
    end
    object cdsOSID_TIPO_SOLICITANTE: TFloatField
      FieldName = 'ID_TIPO_SOLICITANTE'
    end
    object cdsOSID_SOLICITANTE: TFloatField
      FieldName = 'ID_SOLICITANTE'
    end
    object cdsOSID_AREA: TFloatField
      FieldName = 'ID_AREA'
    end
    object cdsOSID_SUBAREA: TFloatField
      FieldName = 'ID_SUBAREA'
    end
    object cdsOSID_LOCALIZACAO: TFloatField
      FieldName = 'ID_LOCALIZACAO'
    end
    object cdsOSID_CANTEIRO: TFloatField
      FieldName = 'ID_CANTEIRO'
    end
    object cdsOSID_TRATAMENTO: TFloatField
      FieldName = 'ID_TRATAMENTO'
    end
    object cdsOSID_FUNCIONARIO: TFloatField
      FieldName = 'ID_FUNCIONARIO'
    end
    object cdsOSDURACAO: TIntegerField
      FieldName = 'DURACAO'
    end
    object cdsOSPERIODICIDADE: TIntegerField
      FieldName = 'PERIODICIDADE'
    end
    object cdsOSDATA_INICIO: TDateField
      FieldName = 'DATA_INICIO'
    end
    object cdsOSDATA_FIM: TDateField
      FieldName = 'DATA_FIM'
    end
    object cdsOSSTATUS: TStringField
      FieldName = 'STATUS'
      Size = 10
    end
    object cdsOSDATA_CRIACAO: TDateField
      FieldName = 'DATA_CRIACAO'
    end
    object cdsOSCANTEIRO: TStringField
      FieldName = 'CANTEIRO'
      Size = 50
    end
    object cdsOSNOME: TStringField
      FieldName = 'NOME'
      Size = 50
    end
    object cdsOSNOME_TIPO_SOLICITANTE: TStringField
      FieldName = 'NOME_TIPO_SOLICITANTE'
      Size = 50
    end
    object cdsOSNOME_SOLICITANTE: TStringField
      FieldName = 'NOME_SOLICITANTE'
      Size = 50
    end
    object cdsOSNOME_1: TStringField
      FieldName = 'NOME_1'
      Size = 50
    end
    object cdsOSNOME_2: TStringField
      FieldName = 'NOME_2'
      Size = 50
    end
    object cdsOSNOME_LOCALIZACAO: TStringField
      FieldName = 'NOME_LOCALIZACAO'
      Size = 50
    end
    object cdsOSNOME_CANTEIRO_POPULAR: TStringField
      FieldName = 'NOME_CANTEIRO_POPULAR'
      Size = 50
    end
    object cdsOSNOME_3: TStringField
      FieldName = 'NOME_3'
      Size = 50
    end
    object cdsOSNOME_FUNCIONARIO: TStringField
      FieldName = 'NOME_FUNCIONARIO'
      Size = 50
    end
    object cdsOSSQLFuncionario: TDataSetField
      FieldName = 'SQLFuncionario'
    end
  end
  object SQLFuncionario: TSQLDataSet
    CommandText = 'select * from os_itens where id_os = :id_os'
    DataSource = dsOs
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftFloat
        Name = 'ID_OS'
        ParamType = ptInput
      end>
    SQLConnection = SQLConnection1
    Left = 1880
    Top = 848
  end
  object dspOS: TDataSetProvider
    DataSet = SQLOS
    Left = 2008
    Top = 784
  end
  object dsOs: TDataSource
    DataSet = SQLOS
    Left = 1952
    Top = 784
  end
  object cdsFuncionario: TClientDataSet
    Active = True
    Aggregates = <>
    DataSetField = cdsOSSQLFuncionario
    Params = <>
    Left = 2064
    Top = 880
    object cdsFuncionarioID_OS: TFloatField
      FieldName = 'ID_OS'
    end
    object cdsFuncionarioID_FUNCIONARIO: TFloatField
      FieldName = 'ID_FUNCIONARIO'
    end
  end
  object dsViewAgr: TDataSource
    DataSet = cdsOS
    Left = 2072
    Top = 728
  end
  object dsCadastroAtividade: TDataSource
    DataSet = cdsCadastroAtividade
    Left = 312
    Top = 384
  end
  object cdsCadastroAtividade: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspCadastroAtividade'
    Left = 312
    Top = 328
    object cdsCadastroAtividadeID_ATIVIDADE: TIntegerField
      FieldName = 'ID_ATIVIDADE'
      Required = True
      Visible = False
    end
    object cdsCadastroAtividadeNOME: TStringField
      DisplayLabel = 'Atividade'
      FieldName = 'NOME'
      Size = 100
    end
  end
  object dspCadastroAtividade: TDataSetProvider
    DataSet = SQLCadastroAtividade
    Left = 312
    Top = 272
  end
  object SQLCadastroAtividade: TSQLDataSet
    CommandText = 'select atividade.* from Atividade'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = SQLConnection1
    Left = 312
    Top = 224
  end
  object dsBuscaServico: TDataSource
    DataSet = cdsBuscaServico
    Left = 432
    Top = 384
  end
  object cdsBuscaServico: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspBuscaServico'
    Left = 432
    Top = 328
    object cdsBuscaServicoID_TRATAMENTO: TFloatField
      FieldName = 'ID_TRATAMENTO'
      Required = True
      Visible = False
    end
    object cdsBuscaServicoID_AREA: TFloatField
      FieldName = 'ID_AREA'
      Visible = False
    end
    object cdsBuscaServicoNOME: TStringField
      DisplayLabel = 'Nome'
      FieldName = 'NOME'
      Size = 50
    end
    object cdsBuscaServicoPERIODICIDADE: TIntegerField
      FieldName = 'PERIODICIDADE'
      Visible = False
    end
  end
  object dspBuscaServico: TDataSetProvider
    DataSet = SQLBuscaServico
    Left = 432
    Top = 272
  end
  object SQLBuscaServico: TSQLDataSet
    CommandText = 'select '#13#10' tratamento.*'#13#10' from '#13#10' TRATAMENTO'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = SQLConnection1
    Left = 432
    Top = 224
  end
  object SQLAdicionaFuncionarioResp: TSQLDataSet
    CommandText = 'select * from FUNCIONARIO'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = SQLConnection1
    Left = 904
    Top = 16
  end
  object DSPAdicionaFuncionarioResp: TDataSetProvider
    DataSet = SQLAdicionaFuncionarioResp
    Left = 904
    Top = 64
  end
  object CDSAdicionaFuncionarioResp: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DSPAdicionaFuncionarioResp'
    Left = 904
    Top = 112
    object CDSAdicionaFuncionarioRespID_FUNCIONARIO: TFloatField
      FieldName = 'ID_FUNCIONARIO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      Visible = False
    end
    object CDSAdicionaFuncionarioRespNOME_FUNCIONARIO: TStringField
      DisplayLabel = 'Funcion'#225'rio'
      FieldName = 'NOME_FUNCIONARIO'
      Size = 50
    end
    object CDSAdicionaFuncionarioRespCPF: TStringField
      DisplayLabel = 'Cpf'
      FieldName = 'CPF'
      Size = 15
    end
  end
  object DSAdicionaFuncionarioResp: TDataSource
    DataSet = CDSAdicionaFuncionarioResp
    Left = 904
    Top = 168
  end
end
